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Foreword 

Here, in this small volume, in easy-to-understand form, Paul 
Bunn has brought together all the essential information you’ll 
need to improve your programming techniques on the Atari 
computers. 

From making the most of the graphics, to using sound and 
the joysticks or paddle, you’ll find the vital addresses, the 
important locations, the programming tricks to get your Atari 
to do just about anything you want it to do. 

And if you just want a generous collection of programs, in 
ready-to-run form, you’ll also find them in this book. From 
BEETLE JUICE (you, as a small, red beetle, try to cross a 
busy street without being squashed) to DODGE ’EM (in 
which you use a joystick to drive your car around a maze, and 
avoid the computer’s car), there are programs for every taste 
and occasion. 

If you’ve come to the ‘What do I do now?’ stage with your Atari 
400 or 800, then you’re ready for Paul Bunn, and this book. 

TIM HARTNELL 

Author of THE PERSONAL COMPUTER GUIDE, THE ZX 
SPECTRUM EXPLORED and 49 EXPLOSIVE 
GAMES FOR THE ZX81 
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Chapter 1 : 
INTRODUCTION 
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This book is aimed at the computer user who has had his 
Atari computer for one or two months, is happily conversant 
with Atari Basic but wants to know his machine inside out. 
This book will provide that and a little bit extra. 

Mastering the Atari computer is as simple as mastering the 
three custom-built chips inside the computer. These chips 
are called ANTIC, POKEY and GTIA. All these chips are 
roughly as big as the 6502 microprocessor (in silicon area) 
giving three times as much computing power as the 6502 
alone. These chips relieve the 6502 to do all the computing, 
leaving the burden of graphics to fall on ANTIC and GTIA. 
The chip called POKEY handles all input/output including 
sound generation. 

I think that the combination of these four chips makes the 
Atari one of the best computers on the market today. My 
decision is based on the high resolution graphics, player- 
missile graphics, four voice sound playable through the tele¬ 
vision speaker, being able to have mixed graphics modes 
and the availability of the three GTIA graphics modes 9 10 
and 11 which offer 16 colors on the screen in high resolution 
graphics. 

If all this sounds like double-dutch to you now, do not worry, 
all will become crystal clear by the time you have finished 
reading this book. 

I am going to describe in detail how to use graphics including 
the GTIA graphics modes, all the input/output features of the 
Atari, the error reporting system, player-missile graphics, 
how to re-define the character set, how to design your own 
graphics modes, how to read the yellow consol keys, to read 
the games controllers, how to fully use the sound command 
and at the end of the book are some games programs and 
details of how they work. 
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Chapter 2 : 

BASICS OF GRAPHICS 
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This chapter covers the basics of using the Atari’s capabili¬ 
ties of high resolution graphics. Here is a list of the 
commands associated with graphics: 

SHORT DESCRIPTION ON 
THE FUNCTION OF THE 
COMMAND ABBREVIATION COMMAND 


Graphics 

GR. 

This selects the current 
graphics mode. 

Setcolor 

SE. 

Re-defines colors from the 
default values. 

Color 

C. 

Sets color for PLOT or 
DRAWTO 

Plot 

PL. 

Plots a single point. 

Drawto 

DR. 

Draws a line from the last 
PLOTed point to the point to 
the point specified. 

Position 

POS. 

Moves the invisible graphics 
cursor to the point specified. 

Locate 

LOC. 

Used to check the color of a 
certain point. 

XI0 (special 

X. 

Used in graphics to fill a 

fill) 


section or shape. 


A more detailed description follows:- 
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GRAPHICS 

This command is used to select one of the various graphics 
modes. Adding 16 to the number gives a full screen, adding 
32 prevents the screen from being cleared when the graphics 
command was entered. With graphics modes 9 10 and 11, 
the screen is automatically cleared when any text is printed 
(including any messages), even when the computer attempts 
to print READY. This can be overcome by entering the 
command POKE 703,4 after the GRAPHICS command. This 
will prevent any text from being printed. Unfortunately, if 
there is an error in the program, then you will not know what it 
is. This can be overcome by using this command with the 
error trapping program described in chapters. This program, 
instead of printing for example ERROR-6 AT LINE 80 would 
produce-Out of data at line 80. It also goes into graphics 
mode O (ordinary text mode), which clears the screen and 
sets all the colors back to the default conditions. 
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SETCOLOR 

This command is used to re-define any of the color registers 
from their default values. The SETCOLOR command is used 
as follows:- 

SETCOLOR Color register, Color Value, Luminosity 
Where the luminosity is an even number ranging from 0-14, 
where 0 is very dark and 14 very bright, a number of 6 or 8 is a 
good compromise and goes quite well with most back¬ 
grounds. 


Color Value 

True Color 

Color Value 

True Value 

0 

Grey/black 

8 

Deep blue 

1 

Light orange 

9 

Light blue 

2 

Orange 

10 

Turquoise 

3 

Red 

11 

Green/blue 

4 

Pink 

12 

Green 

5 

Purple 

13 

Yellow 

6 

Blue/purple 

14 

Orange/green 

7 

Blue 

15 

Light orange 


Memory can be saved by directly POKEing the correct value 
into the color registers. An example for SETCOLOR 2,3,4 
would be POKE 710,3*16+4 or in general POKE color 
register, color value* 16+ Luminance. “What are the color 
registers?” I hear you say. A list of them is given below:- 


Color Register Color Value 


708 1 

709 2 

710 3 

711 4 


SETCOLOR Value 
0 
1 
2 
3 


Note that no SETCOLOR command is needed if you wish to 
use the default colors. 
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COLOR 

This is a command to choose the color that will be used when 
a DRAWTO or PLOT statement is incurred. It is a little difficult 
to use the color statement at first because the SETCOLOR 
command does not use the same numbers as the COLOR 
statement. Experimenting should eventually give the desired 
results. 


PLOT 

This will produce a single pixel at the point specified. 
Example: PLOT 20,15 will produce a single point at 20,15 or 
20 along and down 15. The color will be the last color that was 
specified. Usually this command is used in conjunction with 
the DRAWTO command. 
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DRAWTO 

This will produce a line from the last point plotted to the 
co-ordinates specified, in the color last specified. A small 
program demonstating the GRAPHICS, COLOR, PLOT, 
SETCOLOR and DRAWTO commands, is listed below. 


10 REP1 tt DEflONSTRAT I ON PROGRAF1 tt 
20 RED tt SHQHIN6 BASICS OF ** 

38 REP1 -ft- GRAPHICS.. -£-? 

40 DEG 

50 GRAPHICS 7+16 

60 SET COLOR 0,RNDC 0>*15+1,8 

70 SETCOLOR 1 *RN£K 0X&15+1 >3 

80 SETCOLOR 2,RND<0)215+1,8 

90 COLOR I NT■: RND< 0 >*3 >+1: SI ZE=< RND< 0 >t 1 a 

>+5 

100 OX=<RND<0)*128 >+20 
110 DV=(RNDC0>*40>+20 
120 FOR K=0 TO 359 STEP 39 
130 X=C SIN< R >*S IZE > 

140 V=< COS<R >*SIZE > 

150 PLOT DX,DY:DRAWTO DX+X,DV+¥ 

169 NEXT R 

170 GOTO 90 
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Explanation of program: 

Line 40: Set all calculations to be in DEGrees. 

Line 60-80: Set the color registers 0-2 to random colors 
with a luminance of 8. 

Line 90: Chose the plotting color of one of the randomly 
picked setcolor values. 

Line 100-110: Chose where to position the star, x-y co¬ 
ordinates. 

Line 120: Set up FOR . . . NEXT loop for drawing star. 
Line 130-140: Procedure for working out the position from 
the co-ordinates where to plot. 

Line 150: Plot a single point at the centre of the star, and from 
there draw to the outside. 

Line 160: Continues the FOR + NEXT loop. 

Line 170: Makes the program an endless loop so that the 
program does another star. 
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POSITION 

This command simply moves the invisible graphics cursor to 
the point specified. This command is useful in the text modes. 
A program v/hich follows shows the usefulness of this:— 


10 REf‘1 ## POSITION DEHONSTROTI ON ## 
20 GRAPHICS 8 
30 POKE 752,1 
40 X=INT<RND<0 >#34> 

50 V=INT<RNDC0 >#23 > 

60 POSITION X,V 
70 PRINT "ATARI 11 i 
80 GOTO 40 


An error will occur if you try and position outside the restricted 
range for the particular graphics mode. This command is 
more useful in graphics modes 1 and 2, where large text can 
be printed. 


LOCATE 

This is another useful command that checks the color of a 
certain point. The format is like LOCATE X,Y,D. Where X and 
Y are the X-Y co-ordinates and D is the variable where the 
data is stored. It will be a zero if it is the background color, and 
one if it is color 1 and so on. 
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XI0 (SPECIAL FILL) 

This command can be used to fill in shapes in a certain color. 
It is very useful but a little tricky to use at first. A program 
which draws squares of different sizes and colors is given 
below. An explanation of how it works is also given: 


10 REfl XIO DEflONSTR AT I ON - SQUARES 

20 GRAPHICS 7+16 

3U LET CGLGUR= I NT< RNEK a }$3 >+1 

40 COLOR COLOUR 

□0 SIZL=INT<RNJX0 >*10 >+5 

60 X=< RNDC a 130 >+15 

70 V=< RND< 0 >£66 >+15 

80 PLOT X+SIZE#V 

90 URAWTO X+SIZE,V-SIZE 

100 DRAHTO X*V—SIZE 

110 POSITION X,V 

120 PUKE 765#COLOUR 

130 XIO 13##6#0#0#“S:" 

140 GOTO 30 


Line 20: 
Line 30: 
Line 40: 
Line 50: 
Line 60,70: 
Line 80: 
Line 90: 
Line 100: 
Line 110: 
Line 120: 

Line 130: 

Line 140: 


Puts computer in the required graphics mode. 
Select a random color. 

Set the color to the random value. 

Choose a random size. 

Choose random co-ordinates 
PLOT bottom right hand corner. 

DRAWTO top right hand corner. 

DRAWTO top left hand corner. 

Position bottom left hand corner. 

POKE location 765 with the color that the fill is 
to use. 

The XI0 command that makes the special 
FILL take place. 

Repeats the XI0 procedure 
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GTIA GRAPHICS MODES 

All the Atari computers in England are equipped with GTIA 
graphics modes and with a minimum of 16K memory. I 
believe that in America the minimum amount of memory is 
8K and that GTIA graphics modes are only available if it is 
upgraded to CTIA. 

The GTIA graphics modes all take up to 8K of memory, even 
more than graphics mode 8. But their graphics capability is 
enormous. They can provide up to 16 colors on the screen! 
All modes have a resolution of 80 x 192. 
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GRAPHICS MODE 9 

This graphics mode gives 16 colors all of the same color but 
at 16 different luminances. The background color sets the 
color of the background and of the colors with the varying 
luminances. A color statement from 0 to 15 may be used 
where 0 is background and 15 is near white. An excellent 
program which demonstrates the capabilities of graphics 
mode 9 is as follows. If you haven’t seen it before, type it in, 
type RUN and see the display. 


10 REF1 tt GTIfi NODE NINE DEPiO. U 
20 GRAPHICS 9 

30 SETCOLOR 4*6,0:Z=i6:0EG :X=15 

40 2=2-1:COLOR 2:1=1 

50 FOR P—0 TO 360 STEP 20 

60 IF I THEN PLOT SIN<P>£X+40*CGS<P)£40+ 

96:1=0:NEXT P 

70 DRfiHT0 SI N< P >£X+40 * COS< P >£40+96 
80 NEXT P 
90 X=X-1 

100 IF X<0 THEN 120 
110 GOTO 40 
120 GOTO 120 
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GRAPHICS MODE 10 

I personally think this is the best graphics mode offered by 
GTIA. It offers 9 completely different colors, one background 
and 8 plotting colors. Setting the color registers is easy-just 
poke the color registers with the color value multiplied by 16 
+ luminance required. POKE 704 with the background color 
and POKE 705-712 with colors desired for colors 1 to 8. A 
program called “Tennis Player” plots a tennis player in 
graphics mode 10. If you can be bothered to type all that data 
in, then it will astound you and your friends. 
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10 REf'l % A tennis player - Paul Bunn % 

20 GRAPHICS 10:POKE 704* 12£ 16+2:TRAP 120 

30 POKE 705*0:POKE 706*13$16+12:POKE 707 

* 133:16+8: POKE 70S * 143:16+8 

40 POKE 709*14:^16+6 

50 POKE 710*4: POKE 711,33:16+4 

60 31=0 

70 READ A*B*C 

80 COLOR B:PLOT X*G:X=X+A:DRAWTO X*6:X=X 
-N 

90 PLOT X* 0+i:X=X+A:DHAWTO X * G+1 

i0@ IF C=1 THEN X=0:6=6+2 

110 GOTO 70 

120 GOTO 120 

i*j0 DhTA -j3*0*0*7*1*1 

140 DATA 37*0*0*10*1*1 

150 DATA 3b*0*0*12*l*l 

160 DATA 35*0*0*14*1*1 

170 DATh 34*0,0*15*1*1 

180 DATA 34*0*0*9*1*0*1*4*0*5*i*l 

190 DATA 34*0*0*5,1*0,5,4,0,6,1,1 

200 DATA 34*0*0*2*1*0*9*4*0*5*1*1 

210 DATA 34,0*0*1*1,0,10,4*0*3*5*0*1*1*1 

220 DATA 35*0*0*6*4*0*2*1*0*2*4*0*1*5*0* 

1*1*0*i*5*0*l*l*l 

230 DATA 36*0*0*2*1*0*2*4*0*2*1*0*3*4*0, 

1*5*0*1*1*0*1*5*0*1*1*1 

240 DATA 36*0*0*2*1*0*2*4,0*2*1*0*3*4*0* 

3*5*1 

DhT A 3G*0*0*2*5*0*G*4*0*j*5*1 
260 DmTA ifc*0*0*2*5*0*6*4*0*^*5*0*B*2*1 
0 GUTA *0*0*1*5*0*6*4*0*4*5*0*9*2*1 

280 DHTA w»i** *0*0* 1 *5*0* 1 * 1 *0* 1 *4*0*2* 1 *0* 
1*4*0*5*5*0*11*2*1 

290 UATH -i8*0*0*.i*5*0*2*4*0*5*5*0*l-i*2*l 
300 DATA 37*0*0*1*2*0*5*4*0*5*5*0*14*2*1 
310 DATA 35*0*0*4*2*0*6*4*0,3*5*0*16*2*1 
320 DATA 32*0*0*9*2*0*4*4*0*3*5*0*17*2*1 
OATH *M*M* 10*2*0*4*4*0 *j*5*0* 17*2* 
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U * * 4 * i 

340 UfiTfi 28*0*0* l-3*2*0*^*4*0*2*5*0* 11 *£i* 

@jljij#yi5j^jyj4j4ji 

350 DOT hi 28*3*0*16*2*0*2*4*0*1*5*0*11*2* 
0.»3*3*0*4*2*0*4*4*1 

360 DfiTPi 27*0*0*18*2*0*1*4*0*12*2*0*4*3* 
0*3*2*0*5*4*1 ^ 

379 DfiTPi 27*0*0*31 #2*0*6*3*0* 1 *3*0*5*4* 1 

380 DfiTPl 26*0*0*31*2*0* i *,i*0*5*0*0*2*5*0 
,5*4*1 

380 DOTH 25*0*0*32*2*0*1*3*0*6*0*0*1*5*0 
* G» * 4 * 1 

488 DftTft 24*0*0*33*2*0*7*0*0*2*5*0*5*4*1 
410 DOTH 24*0*0*9*2*0*1*3*0*22*2*11*8*0*0 
*2*5*0*5*4*1 

420 DfiTfi 23*0*0*9*2*0*3*3*0*20*2*0*1*3*8 
*9*0*0*1*5*0*5*4*1 

UfiTfi 2^*0*0*8*2*0* 1 *-^*0* 1 *0*0*2*-4*0* 
10*2*0*2* J«*@*0 *0*0*2* 5*0* 5*4* 1 
440_DfiTfi 22*0*0*9*2*0*3*0*0*2*3*0*16*2*0 
6# 11 *0*0* 1*5*0*5*4* 1 

450 UHTtt 2l *0*0*2*4*0*5*2*0*2*^*0*^i*0*0* 
4*^*6* 1 jL *2*0*6* j* 6* ini*0*0* 1 *5*0*4*4* 1 
460 DfiTfi 20*0*0*4*4*0*1*2*0*4*3*0*4*0*6* 

1 *2*0*8*i3*0*5*2*0* { *ii*0*14*0*0*1*5*0*4*4 
*1 

41-0 UfiTfi 18*0*0*6*4*0* 1 *5*0*^*^ *0*4*0*0 
1 * 2**0*%^ jp 2*0* i^*-j>*0*9*2*0*6*^*0* 14*0*0*1 * 
*0*4*4*1 

430 DHTfi 1 r'*0*0*b*4*0*3*5*0*b*0*0*2*3*0* 

15*2*0* 4 * *0*16*0*0*4*4* 1 

490 DfiI fi lt)*0*0*8*4*0*2*5*0*f *0*0*%j*3*0* 

15*2*0*,i*^*0*l^ *0*0* 4*4*1 

500 DfiTfi 14*0*0*3*4*0*2*5*0*f* *0*0*5*3*0* 

14*2*0*2*%5*0* 13*0*0*4*4* 1 

ti? 10 UHTfi l2*0*0*8*4*0*2*-‘3*0*6*0*0*jr*2*0* 

4*^*0*14*2*0*2*^*0*18*0*0*6*4*1 

520 DfiTfi 11*0*0*9*4*0*2*5*0*6*0*0*5*2*3* 

4*^*0*12*2*0*^*^*8*18*0*8* r*4*1 

530 DfiTfi 11,1*0*9*4*0*1*5*0*7,1,0*5*2*0* 

4*^*0*10*2*0*4*3*0*2*2*0*1 { *1*0*8*4*0*1 * 
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on 



1,1 

548 DfiTfi 18,8,0,8,4,0,2,5,0,7,0,0,7,2,0, 

18j6j0#^!f4f6j 1*0 

#0*4*4** 1 

550 DHTfi 9*1*0*f*4*8*2*5*0*3*1*0*9*2*6*3 
* 3*0* f *2*0*2*3*0*6*2*0* 18*1 *@*2*4*0*^* 1 * 
0*4*4*1 

560 DOTH 8*1*0*3*4*0*10*1*0*10*2*0*3*3*0 
*4*2*0*2*3*0*8*2*0*19*1*0*1*4*0*4*1*0*2* 

4*1 

51**0 DfiTH { *0*0* { *4*0* 11 *0*0* 13*2*0*3*3*0 

*12*2*0*19*0*0*1*4*0*4*0*0*2*4*1 

580 DfiTfi 7*1*0*1*2*0*3*4*0*1*5*0*13*1*0* 

3*4*0*25*2*0*24* 1 *0*2*4* 1 

590 DfiTH 6*1*0*3*2*0*2*5*0*13*1*0*5*4*0* 

24*2*£i*26* 1*1 

b00 DHTH 3*0*0*-3*4*0#4*2*0* 13*0*0*7*4*0* 
22 * 2*1 

610 LJHTfi 1*1*0*6*4*0*2*2*0*14*1*0*8*4*0* 
12*2*0*3*4*0*2*5*0*4*2*0*2/* 1 * 1 
620 DHTH 1*1*0*7*4*0*6*1*0*4*^*0*4*1*0*1 
0*4*0*8*2*0*f *4*0*4*5*0*1 *2*0*2 1 " *1*1 
6*30 DHTfi 1 *0*0*3*4*0*2*5*0*2*4*0*4*0*0 *< 
*{ *0*3*0*0*10*4*0*^*2*0*8*4*0*4*5*1 
640 DfiTfi 4*4*0*1*5*0*2*6*0*3*1*0*3* t *0*5 
*1* 0 *1*i* 0 * 2 *1*0* 12 * 4 * 0 * 5 * 2 * 0 * 10 * 4 * 0 * 3*5 
* 0 *28 * 1 * 1 

650 Dfijfi 5*4,0*3*6*0*3*7,0*7*1*0*1*7*0*2 
*1*0*12*4*0*4*2*0*11*4*0*3*5*0*28*1 *1 
6b0 DfiTfi 1*8*0*5*4*0*1*6*0*2*7*0*9*0*0*1 
*7*0*1*0*0*13*4*0*2*2*0*1*0*0*1*2*0*11*4 
*0*2*5*1 

hi'0 DfiTfi 3* 1 *0*2*4*@* 1 *0*0*2* { *0*9* 1 *0*2 
* 7*0*1*1*0*13*4*0*1*2*0*3*1*0*11*4*0*2*5 
*0*29*1*1 

680 DfiTH 5*1*0*2*7*0*10*0*0*2*7*0*14*4*0 
*4*1*0*11*4*0*1*5*0*30*1*1 
690 DfiTfi 4*5*0*1 * f *0*12*5*0*2*7*0*13*4*0 
*5*5*0*11*4*0*31*5*1 

i 00 DfiTfi 4*0*0*1 * { *0*11*0*0*1 * { *0*1*0*0* 
13*4*0*7*0*0*10*4*1 

718 DfiTfi 4*0*0*1*7*0*10*0*0*2*7*0,1*0*0* 
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12,4,0,8,6,0,10,4,1 

720 Dfljft #0f3f0#0#2f^ #0#2f0j0^1 

1 ,4,0,3,6,6,9,4, 1 

i' i 0 DATA ^^0#0f l#r #0f3«0#0#2jr f0f^f0i0/l 

0f4i0#Sj0j0j9j4j1 

i40_Dfllft 3#0f0f 11018101012 #^i0i4i0#0#8 

i4iUi 1 #5i0ii0itl#0i8i4il 

750 DflTfl 3,0,0,1,7,0,6,0,0,3,7,0,5,0,0,1 
Jj,0,6i4i0,ici5i0i9,0,0i8i4,0i 1,5,1 
f 60 DATA ^,0,0,1,^ i0,ii,0,0,4,7,0,<' i0i8i2 
,5,0,4#4,0,4,5,0i8,0,0, { ,4,0,2,5,1 
i ( 0 Dfllfl *.3,0,0,b,f ,0,10,0,0,9,5,0,3,0,0, 
5,4,0,4,5,1 

r" 80 DAT A 19, 0 ,0 #9 ,5,0, f ,y,0,6,4,0,4,5,1 
790 Dfllfl 20,0,0,0,5,0,7,0,0,6,4,0,3,5,1 
300 DATA 21,0,0,7,5,0,7,0,0,5,4,0,4,5,1 
010 Dfllfl 22 ,6,8,6,5,6,6, 0 , 0 ,6,4,0,j«, 5,1 
o20 Dfllfl 22,0,0,6,5,0,6,0,0,b,4,0,2,5,l 
030 DflTfl 2^, 0,0, 5,5,0,6,0,0,5,4,0,^,5,1 
d40 Dfllfl 23,0,0,5,5,0,5,0,0,6,4,0,2,5,1 
650 DATA 24,0,0,^,5,0,1,^,0,5,b,0,6,4,0, 

1,5,1 

3b0 Dfllfl 23,0,0,4,2,0,1,3,0,5,0,0,5,4,0, 

1 , 5,1 

870 DflTfl 23,0,0,3,2,y,2,3,0,4,0,0,b,4,0, 

1 . 5.1 

380 DflTfl 22,0,0,3,2,0,3,3,y,4,y,0,5,4,0, 

1.5.1 

890 Dfllfl 22,y,y,3,2,0,3,3,0,4,y,0,5,4,l 
90y DflTfl 2l,0i0,4,2,0,-u»i^,0,^i0,0,5,4,1 
910 Dfllfl 2l,0,0,4,2,0,2,0,4,0,0,5,4,1 
920 DflTfl 20,0,0,5,2,0,2,3,0,4,0,0,4,4,1 
93y DATA 20 ,0,0,b,2,0,1,3,0,3,0,0,5,4,1 
940 Dfllfl 21,0,0,5,2,0,1 ,^,0,-Jt,0,0,1,2,0, 

3.4.1 

950 DflTfl 21,0,0,4,2,0,2,3,0,2,0,0,3,2,0, 

1.3.1 

960 DflTH 22,0,0,2,2,0,2,3,0,3,0,0,3,2,0, 

1,3,1 

970 DflTfl 22,0,0,2,2,0,1,3,0,4,0,0,2,2,0, 
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1,3,1 

980 DATA 29,0,0,£,2,0,1,3,1 
990 DOTH 28,0,0,2,2,0,2,1 
1000 DflTfi 28,0,0,2,2,W,2,^,1 
1010 DATA 27,0,0,4,2,0,1,3,1 
1020 DATA 27,0,0,4,2,0,2,3,1 
1030 DATA 27,0,0,5,2,0,2,3,1 
1040 DATA 27,9,8,5,2,0,2,^,1 
1050 DATA 27,0,0,6,2,0,1,3,1 
I960 DATA 27,8,0,6,2,1 
1070 DATA 27,0,0,4,2,1 
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GRAPHICS MODE 11 

Mode 11 is similar to mode 9 except instead of varying 
luminances and a SETCOLOR, mode 11 offers varying 
colors at a set luminance. To set the luminance type: 

SETCOLOR 4,0, Luminance wanted. 

A program demonstrating mode 11 is given below: 


10 REfl * GRAPHICS flODE 11 DEP10. t 
20 GRAPHICS 1i:SETCOLOR 4,8,8 
38 C0L0UR= IHT< RND< 8>#- 15 >+1 
48 COLOR COLOUR 

68 PLOT X, V:DRAWTO 79-X,V:DRAWTO 79-X,19 

i-V:DRAWTO X,191-VsDRAHTO X,Y 

65 SOUND 8,X,10,15:SOUND 1,X+1,10,15:SGU 

ND 2,V,12,8 

r ? 0 X-X+0 .5 * t 1=: V+ 1 

80 IF X<40 THEN 30 

84 COLOR 0 

98 SOUND 0,8,8,0:SOUND 1,8,0,0::50UND 2,0 

, 0,0 

100 GOTO 100 
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Chapter 3: 

INPUT/OUTPUT ON 
THE ATARI 
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This chapter is going to deal with creating, reading and 
writing to files. Before you can use files, they must be 
OPENed. This is done by: 

OPEN # (file number (1-5), MODE, 0, “DEVICE” 


MODE 

MEANING 

DEVICE 

MEANING 

1 

Input 


Printer 

8 

Output 

“C:” 

Cassette 

12 

Input + Output 

“D:” 

Disk 

6 

Disk directory 

“S:” 

Screen 

9 

End-of-file 

“K:” 

Keyboard 


Append 

“R:” 

RS232C 


Operaton 


Editor 


An example: OPEN #3,6,9,“D:*.*” would open file number 3 
the disk drive to read the directory. OPEN # 5,4,0,“C:” would 
open file number 5 to an input operation from the cassette. 

Files can be read from/written to in many different ways. 
There is PUT, GET, INPUT #, PRINT #, and certain XI0 
comands. 
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PUT and GET 

These commands PUT and GET single bytes. The format is 
PUT # file number (1 -5), variable. An example would be 
PUT #2, DATABYTE or GET # 3,ZZ. A program 
demonstrating PUT and GET is listed below: 


19 OPEN #1,4,9,"K:":POKE 752,1 

20 OPEN #2,8,0,“Ps":GRfiPHICS 0 
38 GET #1,BVTE 

40 PUT #2,BYTE 
50 PUT #6,BYTE 
60 GOT 0 30 


Note, that in line 50 it is outputing to file number six even 
though there is no corresponding OPEN statement. This is 
because file number six is automatically opened when a 
GRAPHICS statement is encountered. The advantage of 
using the GET and PUT commands is that you are directly 
ordering single bytes, therefore being simpler and easier. 
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INPUT # and PRINT # 

These commands are used to transfer a string of characters. 
An example using these commands might be PRINT # 2; 
“ATARI”;E$ or INPUT # 1,A$. 

In the first example, “ATARI” will be written to file number 2, 
followed by the contents of E$. In the second example A$ will 
be filled with ATASCII characters until A$ is completely filled 
up or an EOL character is reached. 


X10 5 and X10 9 

These commands are virtually the same as INPUT # and 
PRINT # commands except that XI0 9 will stop writing a 
string if an EOL character is reached, whereas PRINT # 
prints a string regardless of content. An example of XI0 9 
would be XI0 9,#1,8,0,NAME$. 
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Chapter 4: 

THE DISPLAY LIST 
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The display list is a list of numbers inside ANTIC which tells 
the computer which graphics mode it is currently operating in. 
In BASIC, these numbers indicating the graphics mode are 
all the same. When you change the graphics mode by a 
GRAPHICS command, the display list numbers change. The 
length of the display list will vary with the different graphics 
modes, but in all the graphics modes there are 192 scan 
lines. 

A scan line is a single line on the television screen. Certain 
graphics modes have different heights of the graphics rows. 
For example, a graphics row in mode 7 is much smaller than 
a graphics row in mode 3. To work out how high a graphics 
row is for a particular mode use this formula: 

192 h- number of rows in full screen = height of graphics row 
in scan lines. 

Example for graphics mode 5: no. of rows in full screen = 48: 
192 ^ 48 = 4 

So for graphics mode 5, each graphics row is exactly four 
scan lines high. 

If we are to start changing the numbers in the display list, the 
graphics display will change. In this chapter we will discuss 
how to build your own display list, making your own graphics 
display. First of all, let me show you the display list for 
graphics mode 0. 
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All values in Hexadecimal 


70 blank 8 lines 
70 blank 8 lines 
70 blank 8 lines 


must be here to cover 
overscan. 


42 Display Mode 0 (ANTIC MODE 2) 



Low, high bytes of start of screen memory at 7C20 


Display ANTIC MODE 2 BASIC graphics MODE 0 


Jump to start display list which starts at 7BEO 


Screen memory now follows. 
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As you can see, it looks quite complicated. All will be revealed 
soon. First, to find where the display list is. This is very 
simple, you just enter the command: 


DISPLAY LIST = PEEK (560) + 256* PEEK (561) + 4 

Before you go any further, you must work out what display 
you want. I am gong to give one example here: 


GRAPHICS MODE 2 


GRAPHICS MODE 1 



GRAPHICS MODE 0 

1 _ I _ 


10 GRAPHICS @ 

20 DL=PEEK< 560 >+256SPEEK< 561 >+4 
30 POKE DL-1,71SPOKE DL+2,6 
40 SETCOLOR 4,9,4 

50 ? "the program Chat, DOES THIS IS 

ir 

60 ? "LISTED BELOW." 

70 LIST 


Program explanation: 

Line 10: As out of the three graphics modes we are using, 1,2, 
and 0, Mode 0 uses the most memory. Thus, we must specify 
this graphics mode. 
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Line 20: This statement finds the start of the display list data 
for the particular graphics mode, and stores the number in 
the variable DL. 

Line 30: If the first line of your required display is not the same 
as the graphics mode that uses the most memory, then you 
must POKE the value for the display list minus one with the 
correct numbers corresponding to the required graphics 
mode you want the first screen line to display. The numbers 
are listed below: 

GRAPHICS MODE 

01 234567 8 

NUMBER TO BE POKED 

66 70 71 72 73 74 75 77 79 

The second statement in line 30 puts the second screen line 
in mode 1. This is done simply by adding the number of 
screen lines to the variable DL and POKE this with this set of 
numbers corresponding to the required graphics mode for 
that particular screen line. 

GRAPHICS MODE 

012345678 

NUMBER TO BE POKED 
2 6 7 8 9 10 11 13 15 

Line 40 gets rid of the black border. 

Line 50 prints in orange and yellow, in graphics mode one 
and two. 

Line 60 prints in graphics mode 0. 

Line 70 lists the program in graphics mode 0. 

The way you can really learn is to experiment, find out where 
the display list is, and POKE around. You’re sure to find some 
special effects. 
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Chapter 5 : 

THE ERROR SYSTEM 
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This is a short chapter on the error system inside your Atari 
home computer. 

When the Atari computer comes across an error it will stop 
executing the program and will print an error message such 
as ERROR-6 AT LINE 20. You then look up in your manual 
what error number 6 is. You then find out that it means “Out of 
Data”. You try your best then to amend your program so that 
the program works as it should. 

Atari Basic provides you with a useful command called 
“TRAP”. This command will force execution to be continued 
at the line specified when an error is encountered. An 
example: TRAP 520 will cause the computer to GOTO line 
520 if an error occurs. If an error does occur then the error 
number can be found by PRINT PEEK (195). The error at 
which the line occurred can be found by PRINT PEEK (186) 
+ 256 * PEEK (187). 

A program that might prove useful to you is my error trapping 
program. Type it in and save it to disk or cassette. Now, 
whenever you are about to write a program, simply load it in. 
At the beginning of the program make sure that there is a 
TRAP 32000. Make sure that the line numbers do not exceed 
31999 or the error trapping program will start being erased. 
When you have finished writing your program, simply save it 
to disk or cassette using either LIST “C:”,0,31999 for 
cassette or LIST “D:FILE.EXT”,0,31999 if you have disk. 
This prevents the error trapping routine being saved as well. 
When you want your program back in just use ENTER “C:” or 
ENTER “D:FILE.EXT” if you have disk. The error trapping 
routine now follows: 


49 



IS RBI +& FIRST LINE HUST BE TRAP +% 

20 REfl t+ 32000 THEN VOUR PROGRAM t+ 

30 REfl +& GOES HEF:E. +t 

32000 P=PEEKt! 195 >: ERL=PEEKX 186 H256*PEEK 

K Vdi .- 1 

32018 TRnF 32080 

32020 IF P=2 THEN ? "Out of memory "; 

32030 IF P=3 THEN Y "ijut of range "; 

32048 IF P=4 THEN ? "Too many variables 

J: - 

J 

32056 IF P=5 THEN ? "String length too 1 
arge 11 j 

32060 IF P=6 THEN '? "Out of data 

32070 IF P=7 THEN ? "Line number too big 

!l _ 

32080 IF P=8 THEN ? "INPUT error 
32090 IF F-9 THEN ? "firray/DIFI error ” ; 
32100 IF P=10 THEN ? "Stack overflow "; 
32110 IF P=11 THEN '? "Arithmetic overflo 

w " i 

32120 IF F-12 THEN 7 "undefined statemen 

t "i 

32130 IF F-13 THEN ? "NEXT without FOP. " 
* 

32140 IF P=14 THEN ? 11 L* too lorty »?r*ro 

*•-- h . 

* j 

32150 IF F-15 THEN ? "No GOSUB or FOR “i 
32160 IF F-16 THEN ? "RETURN without 60S 
UB " i 

32170 IF P=17 THEN ? “Syntax error “i 
32180 IF P=18 THEN ? "Invalid string cha 
racter "j 

32190 IF P=136 THEN ? "End of file 

32191 IF P=141 THEN GRAPHICS 0:? "Graphi 
cs error “ - T 

32200 IF P>18 AND P< >136 AND P0141 THEN 
? ”INPUT/OUTPUT error "j 
32210 IF ERLO0 THEN ? "at i.ne “;ERL 
32220 IF ERL=0 THEN ? 

32230 tND 
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Note that if you use TRAP to a non-existant line number, an 
ERROR-12 will occur for any error. This is because when any 
error occurs, the computer checks if a TRAP has been set; if it 
has it will try to go to that line number. Thus, if it cannot, an error 
12 will occur. 
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Chapter 6: 
PLAYER- MISSILE 
GRAPHICS 
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I, personally, think that this capability is the best thing that is 
offered by the Atari computers. It makes Atari shine out from the 
rest. With a little effort, you will have players and missiles 
performing at the snap of your fingers. 

There are four players and four missiles, each with their own 
color register, size register and horizontal position register. You 
can have players going under certain playfields and over other 
playfields. Player missile graphics reside in RAM and so take up 
memory. Having single line resolution (one line of a player is 
one scan line) takes up exactly 2K of memory. Having double 
line resolution (each line of a player is two scan lines) takes up 
1K of memory. 

A player is exactly 8 bits wide by either 128 (double) or 256 
(single line resolution). To create your player, you just plot the 
squares on a grid 8 by however tall you want your player. Then 
put the numbers 128, 64, 32, 16, 8, 4, 2 and 1 (the binary 
headings) above the grid. Then add up the binary headings if 
the square is filled in. An example is: 
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128-64 +-32 +16 + 8 -h4-*-2 + 1 * 



= 128 

= 128+64=192 
= 64+32+16=112 
= 32 + 16+8+4=60 
= 32+16+8+4=60 
= 64+32+16=112 
= 128+64=192 
= 128 


A program that will put this player on the screen and so that you 
can move it about on the screen is listed below. Pressing the 
trigger button will change the size of the player. Type it in, see 
how it works and perhaps change it to suit you. A detailed 
explanation of how the program works is also given. Study it, 
and experiment, try to see how it works. 
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10 REPi ** PLAYER-PIISSILE GRAPHICS tt 
20 REH tt EXAP1PLE BV PAUL BUNN. tt 
30 GRAPHICS 0: SETCOLOR 2,0,0: RAF1TGP=PEEK 
( 106>-8 

40 RAP1=RAP1T0P$256 

50 FOR X=512 TO 640: POKE X+RAf1,0:NEXT X 
G0 FOR F—S0 TO 67: READ X: POKE 512+P+RAP1, 
X: NEXT P 

70 DATA 128,192,112,60,60,112,192,128 
80 POKE 53248,128: F'UKE 53277,3: POKE 559, 
46: POKE 54279,RANTOP 
90 XPOS=128:VPOS=60:SIZE=0 
100 S=STICK<0> 

ii0 xpos=xpos+< s=7>—;s=ii> 

120 POKt 5324a,XPOa:POKE 7 w4,XPuS 

130 IF STRI6< 0 >=0 THEN FOR F-255 TO 0 ST 

EP -20:SOUND 0,P,12,12:NEXT P:SIZE=SIZE+ 

l:SOUND 0,0,0,0 

140 IF SIZE>3 THEN SIZE=0 

150 POKE 53256,SIZE 

160 IF S=14 THEN FOR P=0 TO 8: POKE RRP1+5 
11•+VPOS+P,PEEKX RAfT+512+VF'OS+P >: NEXT P: VP 
OS=¥POS-1 

170 IF S=13 THEN FOR P=8 TO 0 STEP -l:PO 
KE RAPH-512+VPOS+P , PEEKX RAH+511+VPOS+P ): N 
EXT P:VPOS=VPOS+l 
180 GOTO 100 
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Program Explanation: 

Line 30: Clears the screen, sets the background to black so that 
you can see the player more clearly. Location 106 holds the 
amount of memory pages you have, this is stored in a variable 
RAMTOP. 8 pages are stepped back for the player/missile 
area. 

Line 40: RAM is to hold the actual RAM location at which the 
player/missile arrangement starts. 

Line 50: This clears out the data currently held in PLAYER 0’s 
place. 

Line 60: This POKE’S in the player. 

Line 70: The data is decimal form for the binary layout for the 
player. 

Line 80: POKE location 53248 with the horizontal value for 
player 0, in this case, 128 for the middle of the screen. Location 
53277 is POKEd with a 3. This enables players and missiles. 
Location 559 is POKEd with a 46. This specifies double line 
resolution. Location 54279 is POKEd with variable RAMTOP. 
This tells the computer where the player/missile arrangement 
starts. 

Line 90: Sets x-position and y-position variables to centre of 
screen. Also sets size to small. 

Line 100: Reads value of joystick. 

Line 110: Increases or decreases the x-position variable 
according to whether the joystick is pushed to the right or left. 
Line 120: POKE the horizontal position register for player 0 with 
the x-position variable. Also POKE the color of player 0 with the 
x-position variable as well. 

Line 130: Check if the red button is pressed down, if it is then 
change size of player. 

Line 140: Check if size variable is greater than three. 

When size = 0 size of player = NORMAL 
When size = 1 size of player = DOUBLE 
When size = 2 size of player = NORMAL 
When size = 3 size of player = QUADRUPLE 
Line 150: POKE the size of player 0 register with the variable 
size. 
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Line 160: Check if joystick is moved up; if it is then move player 
up. 

Line 170: Check if joystick is moved down; if it is then move 
player down. 

Line 180: Continue program loop. 


Here is a list of all the locations that affect players and 
missiles: 


LOCATION NAME 


COMMENTS 


559 

623 


704 

705 

706 

707 
53277 


53278 

53248 
53256 

53249 


SDMCTL 

GPRIOR 


PCOLRO 

PCOLR1 

PCOLR2 

PCOLR3 

GRACTL 


HITCLR 

M0PF 
MOPL 
Ml PF 


POKE a 46 here for double, 62 for 
single line resolution. 

This location determines priorities 
for players and playfied. POKE a 

1 : Players have priority over 
playfields 

4 : Plafields have priority over 
players 

2 : Players 1 and 0 then playfield 

Players 2 + 3 

8 : Playfield 0 and 1 then players, 
Playfield 2 + 3 
Color of player-missile 0 
Color of player-missile 1 
Color of player-missile 2 
Color of player-missile 3 
Graphic control 1: A 3 here will 
enable player-missile graphics 
whereas a 0 will disenable them. 
POKE any value here to clear all 
collision detection registers. 
Missile 0 to playfield collisions. 
Missile 0 to player collisions 
Missile 1 to playfield collisions 
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LOCATION NAME 


COMMENTS 


53257 

53250 

53258 

53251 

53259 

53252 

53260 

53253 

53261 

53254 

53262 

53255 

53263 

53252 

53253 

53254 

53255 

53248 

53249 

53250 

53251 
54279 

53260 

53256 

53257 

53258 

53259 


Ml PL Missile 1 to player collisions 
M2PF Missile 2 to playfield collisions 
M2PL Missile 2 to player collisions 
M3PF Missile 3 to playfield collisions 
M3PL Missile 3 to player collisions 
POPF Player 0 to playfield collisions 
POPL Player 0 to player collisions 
PI PF Player 1 to playfield collisions 
PI PL Player 1 to player collisions 
P2PF Player 2 to playfield collisions 
P2PL Player 2 to player collisions 
P3PF Player 3 to playfield collisions 
P3PL Player 3 to player collisions 
HP0SM0 Horizontal position of missile 0 
HP0SM1 Horizontal position of missile 1 
HP0SM2 Horizontal position of missile 2 
HP0SM3 Horizontal position of missile 3 
HP0SP0 Horizontal position of player 0 
HP0SP1 Horizontal position of player 1 
HP0SP2 Horizontal positoin of player 2 
HP0SP3 Horizontal positon of player 3 
PMBASE This is the highest byte of where the 
player missile area starts. 

SIZEM Size of all missiles 
SIZEPO Size of player 0 
SIZEP1 Size of player 1 
SIZEP2 Size of player 2 
SIZEP3 Size of player 3 

POKE an X here for size registers: 
0 = NORMAL 

1 = DOUBLE WIDTH 

2 = NORMAL 


3 = QUADRUPLE WIDTH 
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HORIZONTAL 
MOVEMENT OF 
PLAYERS AND MISSILES 

This kind of movement is the most simplest for player-missile 
graphics. There are horizontal position registers for all four 
missiles and players. All you need to do is to POKE the 
corresponding horizontal position register with the horizontal 
position. POKEing a low number will move that missile or 
player to the left at the speed of light! POKEing a high number 
will move it to the right. Due to overscan, players and missiles 
will be off the screen between numbers less than 50 or 
greater than 200. These parameters may vary a great deal 
between different televisions or monitors. So POKE a 50 for 
the far left hand side of the screen and a 200 for the far right 
hand side. 
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VERTICAL MOTION WITH 
PLAYERS AND MISSILES 

This kind of movement is a little more difficult, and quite slow 
in BASIC. I consider players and missiles to be a ‘band’ of 
memory running from the very top of the television screen to 
the very bottom. This ‘band’ will be on the X-axis correspond¬ 
ing to its horizontal position register. It will always be 8-bits 
wide (except missiles which are two bits wide). The width of 
each bit will be affected by its corresponding size register. 

POKEing anywhere in this band will immediately display the 
corresponding byte in binary form. So, to actually move a 
player down or up you simply have to move it up or down in 
memory. 
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A FIFTH MULTIPLE 
COLOR PLAYER 


A multiple color player can be made by joining the four 
missiles, which all have their independent color register. All 
you have to do is to build your player in the four missiles area. 
Then put the required color for the two right most bits in the 
color register for missile 0, the next 2 bits in the color register 
for missile 1 and so on. Vertical motion is the same, but with 
horizontal motion all the horizontal positon registers must be 
in order (M3, M2, Ml and then MO), must be sequential. 


PM BASE 
+ 384 
MISSILES 
+ 512 

+ 640 

+ 768 

+ 896 

+ 1024 


+768 PM BASE 


M3 


M2 


Ml 


MO 


PLAYER 0 


PLAYER 1 


PLAYER 2 


PLAYER 3 


DOUBLE LINE 
RESOLUTION 


M3 


M2 


Ml 


MO 


PLAYER 0 


PLAYER 1 


PLAYER 2 


PLAYER 3 


SINGLE LINE 


MISSILES 
+ 1024 


,X- '<•> 


+ 1280 

+ 1536 

+ 1792 
+ 2048 


RESOLUTION 


63 



If, for example, using double line resolution the hi-byte of 
PMBASE is 54 then in single line resolution the player missile 
area will start at 14208 in RAM (256 multiplied by 54) + 384. 


COLLISION DETECTION 

Before detecting a collision, first POKE HITCLR with any 
value. This clears all the collision registers. Then PEEK at the 
required collision detection register. Anything other than 0 
means that a collision has taken place. 
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Chapter 7: 
REDEFINING THE 
CHARACTER SET 
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This is another useful application which the Atari computer 
offers. The data forthe original character set is stored in ROM 
in binary form. The table starts at 57344 and is 1024 bytes 
long. You can only PEEK into the table and not POKE into it. 
Well, how do you change it then? Well, in RAM is a location 
called CHBAS which stands for character base register. You 
can change CHBAS to what you want. 

CHBAS is a hi-byte or MSB to the pointer of the character set 
table. When the value is 224 (the default) value) it points to 
57344. What you have to do is to copy the table from ROM 
into RAM, so then you can change and alter the RAM data as 
much as you like. 

A program that does this and redefines the exclamation mark 
character is listed below. A detailed explanation is also given 
so that you can see how it works. 


10 REF1 ** THIS PROGRfln REDEFINS THE SS 
20 REH ££ EXCLflPIRTION F10RK CHhRhCTER» 

3W Rflf1T0P=PEEK< 106 >-8: POKE 756,RfiPTT0P 
40 FOR X=0 TO 1023:POKE RflnT0P*256+X*PEE 
K< 57344+X>: NEXT X 
50 L0C=RHf1T0P&256+8 
60 FOR X=0 TO 7 
70 READ BYTE 

80 POKE LOC+X,BYTE:NEXT X 

90 DATA 204,204,5i*51*204*204*51*51 
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Line 30: Find top of memory and step back 8 pages. POKE 
756 with this. 

Line 40: Put the ROM character set into RAM. When you first 
run the program you’ll see this happening. 

Line 50: Finds the start of the 8 byte data for the exclamation 
mark character. 

Line 60-90: POKE in data for the character to replace the 
exclamation character. 

When ‘READY’ appears, press shift and T together and see 
the new character. 

To redefine the character of your choice you have to look up 
the character in the internal character chart (in the Atari 
reference manual) multiply that number by eight and add it to 
where your character set starts in RAM. For example, in the 
program: 

LOC = RAMTOP *256+8 

RAMTOP*256 finds the beginning of the character set. Add 8 
because the “I” character is the first character (NUMBER 1). 
Note that number 0 is a space. 
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Chapter 8: 

ATARI’S YELLOW 
CONSOLE KEYS 
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This is going to be a very short chapter on how to read the 
yellow Console Keys. Any combination of START, OPTION 
and SELECT can be found by a single PEEK location. The 
location to PEEK at is 53279. The table below shows which 
keys are pressed at a certain number between 0 and 7. 


PEEK VALUE 

1- 

0 

i 

i 

2 

3 

■ 

c 

6 

7 

KEYS PRESSED 

H 

D 

START 

• 


• 

■ 

• 


• 


SELECT 

a 

□ 


■ 

□ 

□ 



OPTION 

a 

□ 

□ 

□ 






A dot • means that the corresponding key has been pressed. 
An example, when PEEK (53279) gives 2 means that both 
START and OPTION keys have been held down. A program 
which puts this information to use is given below. POKE 
53279,0 makes the actual computer ‘click’. 
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10 GkhPH ICS 0: DI PI CONSOLE 3 >: POKE 752,1 

^10 l“ Ukfc. r 0 j 

30 KEV=PEEKX 53279> 

40 OH KEV GOTO 80#50#60,70*8©*90 
50 IF KEV=0 THEN 70 

60 POSITION 0,0:? "NO KEYS ARE PRESSED": 

CONSOLE " 000": GOT 0 i 50 

70 CONSOL$="111":GOTO 140 

80 CONSOL?— “110":GOT0 140 

9W CONSOLE" 101": GOTO 140 

100 CONSOLE "100": GOTO 140 

110 CONSOLE "011": GOT0 140 

120 CONSOLE— "010":GOTO 140 

130 CONSOL5="001":GOTO 140 

140 POSITION 0,0:? 11 

150 POSITION 2,5:IF CONSOLE 1,1>="1" THE 
N ? "OPTION":GOTO 170 
160 ? " 

170 POSITI ON 2,10:1 F CONSOLE 2,2 TH 

EN ? “SELECT":GOTO 190 
180 ? " " 

190 POSITION 2,15:IF CONSOLE3,3>="1" TH 
EN ? "START":GOTO 20 
200 ? " 

210 GOTO 20 
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Chapter 9 : 

JOYSTICKS AND 
PADDLES 
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On the Atari computer, to read the joysticks or paddles is as 
simple as ABC. There are two commands, STICK and 
PADDLE which give you access to the games’ controllers. 
You do not have to PEEK or POKE like you have to on some 
computers; a chip called POKEY does it all for you. 
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The STICK command 

The STICK command is followed by a number in brackets 
ranging from 0-3. This number refers to the joystick to be 
read. Number 0 is joystick one and number 3 is joystick 4. 
The value that the STICK command gives relates to the way 
that joystick is pointing. 


14 



13 
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How to check if the read 
button on the Joystick 
Controller is pressed. 

The command that checks the red button on the joystick is 
STRIG. There is also a number following this command in 
brackets. For example: STRIG(2) would refer to the red 
button on joystick number 3. Try putting a joystick in socket 
one and typing PRINT STRIG(O). If you had the button 
pressed down when you entered ‘RETURN’ the computer 
will PRINT a zero. Otherwise the computerwill PRINT aone. 
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How to read the Paddle 
Controllers. 

Up to eight paddle controllers can be attached to the Atari 
computer through only four ports. How? Well, each pair of 
paddles has only one socket plug. The paddles are 
numbered from 0-7 from left to right. An example: 
PADDLE(2) will give you the status of paddle controller 
number three. The status can range from 1 to 228. The 
diagram demonstrates this: 


PADDLE command gives: 


PADDLE CONTROLLER PADDLE CONTROLLER 

TURNED TO LEFT TURNED TO RIGHT 
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Checking the red button 
on the Paddles 

To check the red button on the paddle controllers is very 
similar to checking the red button on the joystick controllers, 
except the command to use is PTRIG. This command works 
in the same way as the STRIG function, except the number in 
brackets ranges from zero to seven indicating the paddle 
number. 
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Chapter 10 : 

MAKING PROGRAMS 
MORE EFFICIENT 
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Writing Programs 

Most books on general programming suggest you start by 
drawing up a ‘flowchart’-a pretty combination of circles, 
diamonds and slanting rectangles-which sets out the path 
and operations the computer will follow to execute the 
program. In theory, this is fine but in practice, especially when 
using a computer like the Atari which can quickly pinpoint 
errors, and will not ‘self-erase’ if you’ve made a programming 
mistake, the time and trouble involved is probably not worth 
it. 

It is, however, essential to know exactly what you want the 
computer to do before you start creating a new program, 
even if you’re not quite sure how you are going to get the Atari 
to carry out the task. 

Sometimes a rough sort of flowchart-just the main steps the 
Atari wil take, linked by lines and loops-will help to clarify 
your thinking. This is also a good way of spotting potential 
problems (such as infinate loop) or not specifying the 
computer’s task exactly. 

We generally work out the ‘core’ of a program on paper, then 
enter it into the Atari, starting at line 100 to leave room before 
this line to assign variables, arrays and the like. If you’re 
working on a fairly simple game, or are adapting one from a 
magazine or book, it is just as well to work directly on the 
Atari, but you could keep a notebook handy to record things 
like the fact that, for example, N$ is for the player’s name. 

If you have added memory, or memory to spare, don’t let it s 
presence lead you into sloppy programming habits. It is very 
easy to set up a long and clumsy set of IF statements which 
really should be replaced by an IF then a GOSUB. When you 
have memory to spare it seems too much trouble to bother 
cleaning up your programs. 
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Making Games Programs 
more Interesting 

The best thing you can do for a longer program is to add the 
element of surprise. If you can include situations which do not 
occur every time a game is played, you’ll ensure the game 
will remain interesting for a much longer time than would be 
the case if every situation was triggered each time a game 
was run. 

Another idea is to offer a degree of difficulty feature. Make 
sure that this feature really does increase the difficulty of the 
game, and ensure that-even at the highest level of play-the 
final score is reasonably attainable. 

You can add even more interest to games by awarding 
points, scores, ratings or whatever, that are genuinely related 
to the speed and skill the player demonstrated. A further twist 
is to award a ‘rank’. Atari’s Star Raiders’ cartridge does this 
by giving you a rating from ‘garbage scow captain’ to 
‘commander’. I bet you that this ranking system is what kept 
you playing Star Raiders 24 hours a day! 
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Making programs run 
faster and how to save 
Memory 

1. Try to re-structure a BASIC program so that it is as efficient 
as possible. This will lower execution time and save memory. 

2. Put all frequently used subroutines and FOR + NEXT 
loops at the beginning of the program. As BASIC tries to 
reference a sub-routine by it’s line number, any subroutine at 
the beginning of the program will take less time to reach. At 
the very first line make this a G0T0 statement pointing to the 
main program loop. 

3. If a very short subroutine is used, delete the subroutine and 
put the statements from the subroutine into the place where 
the GOSUB command was issued. 

An example: 

10 F0R X = 1 T0 10 
20 G0SUB 50 
30 NEXT X 
40 END 

50 PRINT “HELL0” : RETURN 


would be changed to: 

10 F0R X = 1 T0 10 
20 PRINT “HELL0” 

30 NEXT X 
40 END 

Doing this, not only saves memory, but decreased execution 
time (speeds the program up). 
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4. If the screen data is not required, by turning off the screen, 
the program will run 30% faster. Turn off the screen by the 
command: POKE 559,0. When you want the screen back on 
just enter the GRAPHICS command. 

5. If you understand machine code, use the USR function. 
Assembly language is much faster than BASIC. 

6. Remove all the REM statements. REM statements just 
take up space in the program. 

7. If a number is referenced many times, then 6 bytes can be 
saved if a variable is set to that number, and the variable is 
referenced instead. 

8. At the start of a program, variables can be set up by a 
READ/DATA statement. This will save memory because 
data in the DATA statements will be stored as ATASC11 one 
byte date. 

9. Use the colon character to have more than one statement 
on a line. 

10. Use a POKE instead of SETCOLOR statements. 

11. Use a POKE instead of POSITION statements. 

12. Use a POKE instead of STICK, PADDLE, PTRIG, 
STRIG, statements. Where to POKE is given in the memory 
locations section of this book. 

13. An idea may be to chain programs. An example may be 
that the first program sets all variables, strings and the like, 
and the main program actually makes the program go. 
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Chapter 11 : 

THE SOUND COMMAND 
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The SOUND command is something offered by the POKEY 
chip. What I like about Atari sound is that the sound is 
playable through the television speaker and not through the 
tiniest loudspeaker you’ve ever seen in the computer. 
Another thing I like about it is that you have four completely 
independent sound registers. 

As you probably know, the SOUND command has four 
parameters: 

SOUND channel, tone, distortion, volume. 

Channel: This is a number referring to the four channels 
offered. The number ranges from zero to three. 
Tone: A number ranging 0-255. The higher the 

number the lower the note. 

Distortion: This number is an even number from 0-14, 
although you can have a number from 0-255. A 
number of 10 means ‘pure tone’. Other numbers 
give special effects. 

Volume: A number between 0-15, the higher the 

number, the louder the note. 

You can create a good effect by all the channels playing 
similar notes. Try typing this: 

SOUND 0,200,10,15 
SOUND 1,201,10,15 
SOUND 2,202,10,15 
SOUND 3,203,10,15 

This gives quite an amusing effect. 
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Another interesting effect can be created by rapidly lowering 
the volume of a note. The program following does this: 


10 REP! ++$# SO UNu UtJ'IU H t" 

20 FOR T0NE=255 TO 9 STEP -20 
30 FOR U0LUHE=15 TO 0 STEP -2 
40 SOUND O r TONE ,10, UOLUPIE 
50 NEXT OQLUflE 
60 NeXT TONE 
76 END 


To turn off all sounds, use END, or to turn off individual 
sounds use SOUND channel, 0,0,0. 
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LOCATION 540 

This location in memory is a count-down timer. Every Vsoof a 
second, it’s value is decreased by one (decremented). 
Usually it’s value is 0, so nothing is changed. Location 540 
can be used to time a sound for up to nearly 47* seconds. The 
following short program plays each note for two seconds. 


LH Rfc.Pl +"Kf£$ SOUND Dhi'lU d ++f!f! 

20 FOR T0NE=255 TO 0 STEP -20 

30 POKE 540#120:REP1 120 = E SECONDS&60 

40 SOUND 0jTONE#i0#i5 

58 IP PEEK<b40X>0 THEN 50 

Sy HEXi TONE 

?0 END 
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Chapter 12 : 

MEMORY LOCATIONS 
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Before I go any further, you must firstly fully understand the 
esence of PEEK and POKE. Here are examples: 

POKE location, BYTE where BYTE is a number between 
0-255 LET A = PEEK (BYTE) or ? PEEK (2036) 

POKE is used to change the contents of any location in 
RAM. 

PEEK is used to return the contents of a location. 

Another thing you must understand is a two byte address. 
Say that there is a two byte at locations 14 and 15. To find 
their address in the example would be: 

ADDRESS = PEEK (14) + 256 * PEEK(15) 
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NAME 


DECIMAL HEX. 

ADDRESS ADDRESS DESCRIPTION 


APPHI 

14,15 

D.E 

This is a two-byte 
adress pointing to the 
highest location used 
by BASIC. 

POKMSK 

16 

10 

Interrupt request enable 

RTCLOK 

18,19,20 

12,13,14 

TV frame counter. 

SOUNDR 

65 

41 

NOISY I/O FLAG 

ATTRMOD 

77 

40 

Attract mode -128 = 
YES 

LMARGIN 

82 

52 

Left screen margin 

RMARGIN 

83 

53 

Right screen margin 

ROWCRS 

84 

54 

Cursor row in graphics 
window 

COLORS 

85,86 

55,56 

Cursor column in 
graphics window 

DATCURS 

93 

5D 

graphics mode 0, data 
under the cursor 

NEWROW 

96 

60 

Row to which 
DRAWTO will go to 

RAMTOP 

106 

6A 

Number of pages of 
RAM 

LOMEM 

128,129 

80,81 

BASIC low memory 
pointer 

MEMTOP 

144,145 

90,91 

BASIC memory top 
pointer 

STOPLN 

186,187 

BA,BB 

STOP/TRAP line 
number 

ERRSAV 

195 

C3 

ERROR NUMBER 

PTABW 

201 

C9 

PRINT TAB WIDTH- 
DEFAULT 10 

FRO 

212,213 

D4,D5 

Value to be returned 
after USR. 

RADFLG 

251 

FB 

RAD/DEG flag 0 = 
RAD 6 = DEG 
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SDMCTL 

559 

22 F 

SDLSTL 

560,561 

230,231 

SSKCTL 

562 

232 

LPENH 

564 

234 

LPENV 

565 

235 

SYRES 

580 

244 


GPRIOR 

623 

26F 

PADDLO-7 

624-277 

270-277 

STICKO-3 

632-635 

278-27B 

STRIGO-3 

644-647 

284-287 

TXTROW 

656 

290 

TXTCOL 

657,658 

291,292 

TXTWND 

703 

2BF 

PCOLRO 

704 

2C0 

PCOLR1 

705 

2C1 

PCOLR2 

706 

2C2 


OS DIRECT 
MEMORY ACCESS 
CONTROL 

Pointer to beginning of 
display list 
OS SERIAL PORT 
CONTROL 
LIGHT PEN 
HORIZONTAL 
VALUE 
LIGHT PEN 
VERTICAL VALUE 
When this is anything 
but a 0, then when 
system reset is 
pressed, a cold start 
will execute. 

OS PRIORITY 
SELECT 

PADDLE controllers 0 
through 7 
JOYSTICK 

controllers 0 through 3 
JOYSTICK 

TRIGGERS 0 through 
3 

CURSOR row in text 
window 

CURSOR column in 
text window 
TEXT WINDOW 
24=OFF 4=ON 
Color of player-missile 
0 

Color of player-missile 
1 

Color of player-missile 
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PC0LR3 

707 

2C3 

2 

Color of player-missile 

Q 

COLORO 

708 

2C4 

O 

Color of playfield 
register 0 

COLOR 1 

709 

2C5 

Color of playfield 
register 1 

COLOR2 

710 

2C6 

Color of playfield 
register 2 

COLOR3 

711 

2C7 

Color of playfield 
register 4 

MEMTOP 

741,742 

2E5,2E6 

OS MEMORY TOP 
POINTER 

MEMCO 

743,744 

2E7,2EB 

OS MEMORY LOW 
POINTER 

CRSINH 

752 

2F0 

A 0 here for the cursor 
to be displayed a 1 to 
turn it off. 

CHACT 

755 

2F3 

A 4 here for text to be 
displayed upside 
down 

CHBAS 

756 

2F4 

A 224 here for upper¬ 
case characters, or a 
226 for lower case. 
You can also POKE a 
value here to point to 
your own character set 
in RAM 

ATACHR 

763 

2FB 

Last ATASCII 
character 

CH 

764 

2FC 

Last key hit in internal 
code 

FILDAT 

765 

2FD 

Color that FILL 
operation is to use 

CONSOL 

53279 

D01F 

Location to be used 
when reading from the 
yellow consol keys 
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STIMER 

53769 

D209 

Start timer 

RANDOM 

53770 

D20A 

Random number 
generator producing a 
number between 0- 
255 every Veoth 
second 

PACTL 

54018 

D302 

A 52 here to turn the 
program recorder on, 
a 60 to turn it off 

PENH 

58284 

D40C 

The horizontal value of 
the light pen 

PENV 

58285 

D40D 

The vertical value of 


the light pen 
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Vectors 


HEX. 

EC. 


OA 

10 

DOS Vector 

OC 

12 

Warm-start vector 

12,13,14 

18,19,20 

3 bytes of built in clock 

58 

88 

Pointer to the beginning of screen 
RAM 

200 

512 

Display list interrupt vector 

E453 

58451 

Disk interface 

E45C 

58460 

This routine sets vectors 

E45F 

58463 

This vector is executed at vertical 
blank 

E462 

58466 

This vector is executed after 
vertical blank 

E465 

58469 

Routine initialises serial input/ 
output 

E471 

58481 

Goes into the blackboard mode 

E474 

58484 

Warm start 

E477 

58487 

Cold start (power-up procedure) 

E47A 

58490 

This routine reads a block of 128 
data bytes into CASBUF (data 
starts at 400 in hex.) 

E470 

58493 

Open cassette for input vector 
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Chapter 13: 

GAMES PROGRAMS 
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The following programs are intentionally designed purely for 
the purpose of fun, although I hope you’ll enter the programs 
as we have listed them here, and enjoy playing them. The 
real value of this section though, lies in what you do with (a) 
the programs to adapt them to make them your own; and (b) 
the ideas you get from them to use in new programs of your 
own. 

Unfortunately, the ATARI printer does not print graphics 
characters, so I have had to ink in the appropriate graphics 
characters. Notice that the () symbol is the clear screen 
symbol. 
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BEETLE JUICE 

This is one of my favourite programs, about a poor red beetle. 
Instructions are listed below. Make sure that you SAVE the 
program first before you attempt to RUN it at all, because an 
error in the program, especially in the DATA statements 
could cause the computer to crash (because it uses 
assembly language in the form of USR calls). 
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The I nstruc 
B E 


ons tor beet1e juiee: — 
T L E J U 1 C E 



You are a sma 11 red beet I e whose on 1 y 
desire is to yet to the other side of 
the road.This is no easy task because 
unfortunately for your beetle,there 
are some man i ac dr i vers arourid try i r *9 
to put Beetle Juice back on the menu 
again! 


you may move up or down i n your 
desperate plot to get to the other 
side.The ultimate goal is to get 10 
bee11 es ac ros-s. 

Scoring is for the time taken to get 
the beetles safely home. 

A score of less than 3080 is poor 
about 5000 is avarage and 
greater than 7500 i=- excellent. 

HIT ftNV KEY TO PLOY BEETLE JUICE! 
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10 RED W*^*4*£«l*' 

•v--r- v--v--Y-V- y- *y--v-* y*- r*-v- -v- v--v- -f.4-v--r--r--t* v- 

BV PAUL BUNN 


20 GRAPHICS 0:POKE 752,1: DIP! AT<1> 

30 SETCOLOR 2,3,4: SETCOL OF! 4,3,4: Y "Do 
ou desire instructions " 


y 


40 TRAP 20:INPUT AT:IF AT="V" THEN 73G 
50 IF AT<>"N" THEN ? :? " PARDON !":? :G 

0T0 30 

60 TRAP 40000:SOTO 8© 

70 CLR :GOTO 20 

60 GRHPHlCd 1:POKE 756,226:SETCOLOR 0,W, 

0:? #6i" 

90 FOR C=1 TO 5:? #6,,"- 

-":NEXT C: ? #6,," 

100 SETCOLOR 2,4,4 


110 GOSUB 480:POKE 752,1 

120 RESTORE 670:FOR C=8 TO 93:READ D:POK 

E 1536+C, D *NEXT U 

130 POKE 53278,2:POKE 540,255 

148 C=USFX1536 >:E=STICKX 0 >:IF E=14 THEN 

SOUND 0,70,10,15:C=iJSR< 1595 >:■SOUND 0,0,0 

, 0 

150 IF E=13 AND PEEKX 206 X216 THEN SOUND 
0 , 200 ,10,15:C=USR<1615>:SOUND 0, 0 , 0,0 
160 IF PEEK< 206>=141 THEN G»OTO 1:30 
170 IF PEEKX 53263 X>0 THEN 280 
180 GOTO 14© 


190 REFI tt VOU WIN 
200 b=b+10&PEEK< 540 > 

210 FOR D=252 TO 4 STEP -4:SOUND 0,D,10, 
15: SOUND 1,Ch-1,10,i5:SOUND 2,0+2,10,15:6 
OUND 3,0+3,10,15 


220 NEXT D 

230 FOR C=0 TU 3:SOUND C,0,0,0:NEXT C 

240 F=F+1:? CHRTX 125 " BEETLES HONE 

SAFELY : ";F 
250 IF F=10 THEN 400 

260 X=USR< 1615): IF PEEK< 206 X216 THEN 26 

0 
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270 GOSUfci 588:GOTO 130 

280 ? "BEETLE JUICE IS ON THE fTENU AGAIN 

i i* 

290 FOR D=1 TO 45:C=USR<1536>:POKE 787,P 

EEKC53770> 

300 POKE INK RND< 0 >$6 >+PEEK< 206 >+256£PEE 

K<. 207 >,PEEK< 53770 

318 SOUND 0,RND<0>^30,88,15:NEXT D 

320 POKE 707,0: SOUND @,0,0,0 

330 ? CHR$<125" Hit any key for anot 

her 90 ." 

340 ? " SCORE=“;6:G=0 

350 POKE 764,255:SOSUB 58@ 

360 IF PEEKX 764 >=255 THEN 368 
370 POKE 707,54: C=USRU535 > 

388 C=USR< 1615>: IF PEEKX 206 X216 THEN 38 
0 

39@ F=0:6OTO 130 

400 GRAPHICS 2:SETCOLOR 2,0,0:? #6;" con 
Qratulations!!" 

410 ? #6, , , , "VOU HAUE P1ANA6ED TO" 

420 ? #6,,"GET la BEETLES H0P1E Sfi 

FELV" 

430 ? #6,,"'we 11 done indeed!!!" 

440 POKE 53248,0:POKE 53249,0: POKE 53258 
,0:POKE 53251,0 
450 ? #6i"score="iG 

460 FOR C=8 TO 255:SOUND 8,C,12,15:NEXT 

C 

478 SOUND 0,0,0,0:END 

480 A=PEEK<106>-8:POKE 54279,A:B=256$A:F 
OR C-B+512 TO B+1024:POKE C,0:NEXT C 
490 RESTORE 660:FOR C=B+531 TO B+538:REfi 
D DSPOKE C,D:NEXT C 

500 RESTORE 600:FOR C=B+670 TO B+677: 

D 0SPOKE C,D:NEXT C 
510 RESTORE 620:FOR C=B+81W TO 6+817: 

D D:POKE C,D:NEXT C 

520 RESTORE 630:FOR C=B+566 TO B+573: 

D DsPOKE C,D:NEXT C 
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539 RESTORE 840:FOR 6=8+707 TO B+714:REfi 
D D:POKE C,D:NEXT C: 

540 RESTORE 630:FOR 6=8+847 TO B+S54:REfi 
D D:POKE C,D:NEXT C 

550 RESTORE 610:FOR 6=B+986 TO B+992:REfi 
D D:POKE C,D:NEXT C 

560 6=INT<< B+986 V256>:D=B+986-25S*C:P0K 
E 206,0:POKE 207,C 

570 POKE 559,46:POKE 53277,3:POKE 623,1: 
POKE 704,12*16+8:POKE 705,7*16+8:POKE 76 
6 , iL-i i : POKE r 0 ( , j* 16+6 

580 E=53770:POKE 203,PEEK<E>:POKE 204,PE 
EK< E >: POKE 205,PEEK<E>:POKE 53251,180 
590 RETURN 

800 DATA 24,113,254,191,191,254,113,24 
610 DATA 24,90,60,126,126,60,66 
620 DfiTfl 238,68,233,123,123,233,68,238 
630 DATA 231,66,218,127,127,218,66,231 
640 DATA 119,34,119,222,222,119,34,119 
650 DATA 231,66,91,254,254,91,66,231 
660 DATA 24,142,127,253,253,127,142,24 
670 DATA 104,230,203,169,200,197,203,176 
,4,169,50,133,203,193,204,234,234,169,50 
,197 

680_DATA 204,144,4,169,200,133,204,230,2 
05,230 

690 DATA 205,234,234,169,200,197,205,176 
,4,169 

780 DATA 50,133,205,165,203,141,0,203,16 
5,204,141,1,208,165,205,141,2,208,96 
710 DATA 104,198,206,208,2,198,207,160,0 
,185,89,6,145,206,280,192,9,208,246,96,1 
04,230,286,288 

72U_DATA 2,230,207,76,66,6,0,24,90,60,12 
6,126,60,66,0,0 

730 ? "> B E E T L E J U I 6 E“ 

740 ? " *-*-*-*-*-* *-*-*-*-*“ 

750 ? :? " You are a sioall red beetle uih 
ose only“i 

760 '? “desire is to -yet to the other sid 
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€• of the- road.This is no easy task beeau 
se" 

779 ? “unfortunately for ‘jour beetle,the 

re 11 

780 ? “are some maniac drivers around tr 
y i ng " 

780 ? “to put Beet1e juice back on the m 
enu“ 

800 ? " aga ini": ? : ? “ you may iTiove up or 
down in your" 

810 ? “desperate plot to get to the othe 

r" 

820 ? "side.The ultimate goal i-s to get 
10 " 

830 ? "beetles across." 

94@ ? :v scoring is for the time taken 
to get" 

850 ? "the beetles safely home." 

860 ? "ft score of less than 3000 is poor 

n 

870 '? "about 5000 is avar-age and" 

880 ? "greater than 7500 is excellent." 

890 ? :? "HIT ANY KEY TO PLAY BEETLE JUI 

CE! " 

900 POKE 764,255 

910 IF PEEKX764>=255 THEN 910 

920 GOTO 80 

930 END 
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SMASHOUT! 

In this arcade style game, you have to pulverise as many 
bricks as you can using your paddle at the bottom of the 
screen. The paddle is controlled by the joystick by moving left 
and right. Use your paddle to keep the ball in play. You score 
points for destroying bricks, but look out, if the ball hits the top 
wall, your bat is reduced to half size! 

When you type in the program, SAVE it before you attempt to 
RUN it because the computer will crash if you have typed in 
the data wrongly. 

After RUNning the program, be patient for a while as the 
computer redefines the character set, POKEs in machine 
code and sets up player/missile graphics. 
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10 Kfc.Pl % SflASHOUT - WRITTfcN BV % 

20 REH % PAUL BUNN SEPTEP1BER 1382 % 

38 ? CHR$<125>*"PLEASE WAIT WHILE I REDE 
FINE CHARS":BLS=3:K=142.-19: P10DE=i 

40 ? "AND SET UP PLAYER- PI I S31LE GRAPHICS 


50 ? ".THANK VGU."s? :? 

s? "PLEASE HIT THE 'START' KEY TO BEGIN" 
60 FOR P=1538 TO 1536+140 :kEhD X:PuKE P* 

X:NEXT P 

70 DATA i04*173*120*2*201*7*208*4*230*20 


80 DATA 230 # 203 #201*11#203 *5,138*203* 138 
*203 

80 DATA 24*165*203*141*0*208,201*56*176* 

4 

100 DATA 163*56*133*203*24*165*203*201 * 1 
84*176 

110 DATA 2*133*203*165*206*201*1*208*2*1 

38 

120 DATA 208*201*2*206*2*2^0*208*165*203 
* 141 

130 DATA 1*208*201*137*144*4*169*1*133*2 
06 

140 DATA 165*208*201*57*176*4*163*2*133* 
206 

150 DATA 165*207,201*1*208*22*2-30*204*16 
5*204 

160 DATA 201,0*208*2*230*205*160*0*185*1 

170 DATA 6*145*204*200*132*4*208*246*165 

180 DATA 281*2*208*22*138*204*165*204*20 
1*0 

130 DATA 208*2*138*205*160*0*135*ljf*6*1 
45 

200 DATA 204*200*132*4*208*246*36*0*128* 

IcLC J- fct 

210 IF PEEK-, 53273 K >6 THEN POKE 53273,0: 

POKE 53273*8:GOTO 210 

220 DIPT 6$<9 > :G$="6AHE UUER" 
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230 GRAPHICS 1+16:RAn=PEEK<106>-8:FOR X= 

0 TO 1023: POKE RAfl*256+X,PEEK< 57344+X >: N 

EXT X 

248 POKE 756,RAH:FOR X=0 TO 7:POKE RAn#2 
56+8+X,255:NEXT X 

258 SETCOLOR 0,2,6:GOSUB 260:GOTO 320 
260 ? #6j "s-core=0":POKE 53278,2: POSITION 
12,0:? #6; ,, bails=3" 

270 COLOR 129:PLOT 1,4:DRAWT0 18,4:PLOT 
1,5: CiRAWTO 18,5 

280 COLOR 33:PLOT 1,6:DRAWTG 18,6:PLOT 1 
,7:GRANT0 18,7 

290 COLOR 161:PLOT 1,8:DRAHTG 13,8:PLOT 
1,9:DRfiWTO 18,9 

300 COLOR 1:PLOT i,10:DRAHTO 18,10:PLOT 
1,11: DFlAWTQ 18,11 

310 COLOR 33: PLOT 0,23*-DRnWTO 0,1: DRfiWTO 
19,1:GRANT0 19,23:RETURN 
320 RAfl=KAi‘l-8: FOR X=512 TO 768:POKE RAPlt 
256+X ,8: NEXT X: RArc=RAPl£256 
330 POKE RAn+620,255:POKE RAH+621,255 
340 POKE 553,46:POKE 54273,RAIV256:P0KE 
53277,3 

350 POKE 704,15*16+10:POKE 705,54:PUKE 5 

3248,128: POKE 53243,128: POKE 53256;, 1 

360 POKE 203,128:POKE 208,128:POKE 206,2 

:POKE 207,1:BALL=RAH+718 

370 HI6H=INT< BALL--256>:LQW=8ALL-256*HI6H 

380 POKE 204,LON:POKE 205,HIGH 

380 X=USR<1536) 

400 IF PEEKX204>+256*PEEKi<205>-RAPK666 T 
HEN POKE 207,l:nOOE=2:POKE 53256,8 
410 IF PEEK<53260 K >0 THEN X=PEEK<203>+7 
:V=PEEKX 2082-POKE 207,2:F'UKE 206,(V>=X>T 
2+< V<X >: HOut=l 
420 X=USR<1536 > 

430 IF PEEKX 53253 >=0 THEN 490 
446 FOR P=22 TO 12 STEP -1:SOUND 0,P,12, 
15:NEKT P:BOUND 0,0,0,0:SC=SC+10:PUSITIO 
N 6,0:? #6iSC 

450 X=INT<<PEEK< 208>-55 >x8>+1 
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4 KP1 Y=PEEK< 204 >+256*PEEK< 205RftH-3: V=I N 

T<: ( Y-664 V4 >+3 

470 POSITION X,Y:? #6i i! " 

480 PUKE 207 ,flODE 

490 POKE 53278,255: X;=USR< 1536) 

500 IF PEEK< 204)+256£PEEK<205 >-Rflft>75b T 

HEN 520 

510 GOTO 390 

520 FOR P=0 TO 255 STEP 7:SOUND 0,P,10,1 
5:NEXT p:SOUND U,0,0,0 
530 IF PEEKX 53279K>6 THEN 530 
540 BLS=BLS-l:POSITION 12,0:? #6i“balls= 
i BLS: f10DE= 1: POKE 53256,1 
550 IF BLS=0 UNO PEEK-: 53279>=6 THEN 558 
560 IF BLS=0 THEN b40 

570 POKE RflFH-760,0: POKE 800+76i ,0: POKE R 
fiPl+759, U: 60 i 0 34« 

580 P=0:FOR X=1 TO 18:FOR V=4 TO 11:LOCO 
TE X,Y,0:IF LK>32 THEN P = 1 
590 NEXT V: NEXT X: IP F ,= 0 THEN BL.S = BLS+1: 
GOSUB 260:POSITION 12,0:? #6;"balls=";BL 

■Z> 

600 SRfiPHICS 1+16= GOSUB 260:POKE 756,RHO 
^256+8: SETCOLOR 0,2,6:POKE 559,46 
Si0 IF PEEKX 53279>=6 THEN 610 
620 POKE 53279,0:IF PEEKX 53279 K>6 THEN 
620 

S30 POKE RHfl+76©,0: POKE RfiPV+761,0: POKE R 

HPi+759,0: GOT0 340 

640 FOR X=0 TO 8:POSITION 6+X,12:? #6;6$ 
< X+1, X+1 >: FOR Y= 10£X TU 10£X+9: SOUND 0 , V 
,12,15 

650 SETCQLQR 0,X,8:NEXT V-NEXT X:SOUND 0 

, 0 , 0,0 

660 IP PEEK*: 53279X .>6 THEN 660 

670 SC=0:BLS=3:SOUND 0,0,0,0:GOTO 600 


113 



GRAND PRIX 

Use your joystick to control your car left or right down the 
narrow lane at night. 
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10 Hhl i XX GhifiNU PR IK - p. BUNN XX 
28 PI=5 

30 X2= 14 : X= 116 ■ S=PEEK< 106 >—8 : Q=SX256 ■ FOR 
N=Q+512 TO Q+S40:POKE N , 0:NEXT * N:POKE 5 
4279,SsCRfiSH=250 

40 POKE 559,46:POKE 53248,X:POKE 704,216 
:POKE 704, 200 :POKE 58256,i 

50 FOR N=Q+552 TO Q+561:READ ft:POKE N,fi: 

Hex i N 

6£i DfiTfi 129,195,165,24,24,153,219,165,36 

J il't 

70 GRAPHICS 0:SETCOLOR 2,0,0:POKE 53277, 

: PUKE 559,4b 

80 POKE 752,1:POKE 53278,ft 

90 FOR P=0 TO 23sFOR 0=1 TO X2:? " "i:NE 

XT us Y i I '*: NtXT P 

100_S=STICK<@ >sX=X+(8=7 >X2:X=X-< 8=11>X2: 

POKE 53248,X 

110 SOUND 0,40,10,15:SC=SC+PIsSOUND 0,0, 
0, 0 

L20 IF 0 THEN 0=0: Z=2: GOT0 17£i 
130 fi=PEEKX 53770 ) 

140 iP ft >85 ftND ft<170 THEN 2=8 

150 IF ft>17© AND X2<15 THEN 2=3:0=1 

160 IF ft<85 ftND X2>2 THEN X2=X2-1:Z=1:Q= 


170 FOR N=1 !0 X2 

> ii 

:5 » NEXT N 

180 IF ft=19£ ftND 
"s1=1:GOTO 220 

NOT 

I THEN ? " FINISH 

190 IF 2=1 THEN ? 


/“ 

200 IF 2=2 THEN ? 

<»t 

1 « 

210 IF 2=3 THEN ? 

"\ 

\ 1 :X2=X2+1 

220 V=PEEKC53252> 

IS IF 

t<>0 AND I THEN GOT 


0 320 

230 IF VO0 THEN GOTO CRft:3H 
240 GOT0 100 

250 RET! XX VOU CRft:5HED! XX 
26© N=INTC RND< 0 >3:10 >s POKE Q+552+N,PEEK<5 
3770>:80UND U,kND<W )X20+20,30,15:POKE 70 
4,PEEK< 53770 > 

270 IF PEEK* 53770><.240 THEN 260 
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do0 POKE 53248#0! ? :? "VOL* SCORED: " iSC:? 

:? :? “HIT hNV KEV.“:POKE 764,255 
290 SOUND 0,0,0,0 
30O IF F'EEK< 764 >=255 THEN 300 
310 RUN 

320 MJR ¥=0 TO 255:POKE 710,V:NEXT V 
330 ? "JVOUR SCORE :SC:POKE 710,0 
340 ? " BONUS :1000":B=1000 
350 FOR 6=1 TO 1000 BTEP 10: Ei=B — 10: SC = SL- 
•*-10:POSITION 14,0:? SC:POSITION 14,1:? B 
SOUND 0,6.'4,10,10:NEXi G 
360 SOUND 0,0,0,0 

370 ? :81=61X2:? “STEP UHLUE NOW IS “;PI 
380 RESTORE :1=0 
390 GOT0 30 
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PATTERN GENERATOR 

Although not a games program, this program produces 
very pretty patterns. Just input any positive number when 
prompted and see that corresponding pattern. 
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10 REPI *** PATTERNS BV P.BUNN 
su Htfi i hese steps si us tiuuu results: — 
30 REPi i21,1234,2 
40 REPI 

50 DI PI A$< 10 >: DEG : U= 1: GRAPH ICS 8: COLOR 
1sSETCOLOR 2,5,4:SETCOLOR 4,5,4 
60 Y “WHAT STEP ’* iJ INPUT P 
?U L=L+P 

80 A=< SI N< L >470 >+120: B=P COS*i L >$-70 >+80 

90 LOCATE A,B,I:_IF IO0 THEN DRAWTO A,B 

SOUND 0,0,0,0:GOTO 130 

100 IF U THEN PLOT A,B:U=0 

110 SOUND 0,8,10,8 

120 DRAWTO A,B:NEXT L:GOTO 70 

130 ? ">ANOTHER PATTERN “H INPUT A$ 

140 IF Af-c 1,1 >="V" THEN RUN 
150 IF A$< 1,1 X>"N H THEN 130 
160 GRAPHICS £i : END 
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ALIEN BOMBS 

In this program you have to shoot down ten descending 
alien bombs. Use keys “1 ”, “2” and “3” to correspond to the 
top, middle and lower laser cannon. Full instructions are 
included in the listing. 
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18 Kh.Pl ttt ALIEN B0P1BS &$£ 

28 RhPl 

38 ftEPl BV P.8UNN DEC 1381 
40 REN 

58 UIH h$■:. 50 > 

60 SETCOLOR 1,2,4:SETCOLOR 2,2,IQsSETCOL 
OR 4,2,10:POKE 82,1 

70 TRAP 70:? ">* INSTRUCTIONS < V--N>“ i: IN 
PUT A$:IF A$< >"N" AND A$<>“¥“ THEN 70 
80 If- Ai= "N" THEN 300 

90 At-=" AN EUIL WARLORD HAS SENT TEN RAD 
10 “:8GSUB 360 

100 A$="CONTROLLED BQf1BS,AIF1ED AT VOUR P 

LANE i 11 : GOSUB 880 

110 A$=" ":GOSUB 380 

120 A$="VOUR HISSION GOSUB 380 

130 A£=" TO DESTROY ALL ALIEN BOflBS. ": 

GOSUB 880 

140 A$="FAILURE TO C0P1PLETE VOUR TASK WI 
LL":GOSUB 388 

150 ="RESULT IN VOUR COURT I1ARTIAL! " :S 

OSUB 360 

160 A£= " 11 : GOSUB 360 

170 AT—"VOUR CONTROLS :":GOSUB 368 

180 A$=" 1. i-IRE UPPER LASER CANNON":*30 

SUE* 36@ 

130 Af-= !i 2. FIRE PUDDLE LASER CANNON":S 
OSUB 360 

200 R$=" 3. FIRE LOWER LASER CANNON":GO 

SUB 380 

218 A£=" ": GOSUB 368:A£="SCORING: “: GOSUB 
36@ 

220 A£=“HIT USING UPPER CANNON =10 POINT 
S":GOSUB 860 

230 A$="HIT USING PUDDLE CANNON=20 POINT 
S":GOSUB 360 

24© H£= i! HIT USING LOWER CANNON =30 POINT 
S": GOSUB 360: A£-=“ ": GOSUB 38© 

258 A£=" ONLY A DIRECT HIT WILL PENETRATE 
THh " : GOSUB 860- 
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£6@ A4 ; = 11 ALIEN bOPlB. • 3U bE CflREFULL! “ : bUb 

I IB 360: A$=‘‘ “sGOSUB 660 

270 A$-‘ '“.finSUB 360:A$=" THE 6AT1E IS 0 

UER WHEN EITHER:-"sGOSUB 360 

280 HS="1. VOU DESTROV ALL 60F1BS SGOSUB 

86 u 

290 A*= H 2. A eoriB DESTROVS YOUR PLANET": 
UOSUB 360 

300 A*=" '*:GOSUB 360:A*=“ PRESS 'RETUR 

N' TO CONTINUE"sGOSUB 360 

310 POKE 764,255 

32W IF PEEK(764 X>12 THEN 320 

330 POKE 764,255:POKE 752,1 

340 FOR 6=0 TO 20:POSITION 0,6:? " 

":NEXT 

6 

358 GOTO 370 

360 FOR S=1 TO LEN< A$>:FOR Q=1 TO 10:NEK 

T Q:SOUND 1,120,10,12:? A4KS,S >i :SOUND 1 

,0,0,0:HEX! S:? :RETURN 

370 RET 1 ] SET UP PLANET 

380 GRAPHICS 7:SETCUL0R 2,12,4:SETCOLOR 

4,7,0:SETCOLOR 1,13,12 

390 COLOR 3:FOR L=0 TO 159 STEP 2 

400 Q== I NT< RND< 0 >t? >+1 

41U PLUI L,7a: DR AWT 0 L, 1 -. 79—0 > 

420 PLOT L+l,79:DRAWTO L+l,C79-Q>:NEXT L 
430 SETCOLOR 0,1,8:COLOR 1 
440 PLOT 2,0:DRAWTO 2,79 
450 PLOT 3,10:PLOT 3,ll:PL0T 4,11:PL0T 
,12:PLOT 5,12:PLOT 4,13:PLOT 3,13:PLOT 
,14 

460 PLOT 3,30:PLOT 3,31:PLOT 4,31'.PLOT 
,32:PLOT 5,32:PLOT 4,33:PLOT 3,33:PLOT 
,34 

470 PLOT 3,50:PLOT 3,51:PLOT 4,51:PLOT 
,52:PLOT 5,52:PLOT 4,53:PLOT 3,53:PLOT 
,54 

480 POKE 752,1: FOR L=1 TO 12*.? “ GET RE 
ADYSOUND 1,120,10,14:FOR J=1 TO 20:HE 
XT J 


121 







490 ? "#*GET READY!“:SOUND 1,70,10,14:FO 
R 9=1 TO 28:NEXT J 
500 NEKi L 

510 ? ‘>^80. .80. .80* ! ! " 

520 FOR L=1 TO 3:FOR 0=1 TO 80 STEP 10:S 

OUND i, Q£L , 10 , L+12: A=A+1 

530 NEXT Q:NEXT L 

540 ? SOUND 1,0,0,Q:S=0 

550 REN PlfiIN PROGRAd LOOP 

560 FOR 00=1 Tu 10 

570 R=88 

580 FOR K=2 TO 76 STEP 5 

590 POKE 656,2:7 "SCORE:"iSi" ALIEN NO. 

"iOU 

600 SOUND 1,RND<0>*8,120,7 
610 (4=1 NT< RICK 0 >£4 >-2: Q=< RND< 6 >£5 >-2: K=K 
■H4: R=R+Q 

620 IF R>154 THEN R=154 
630 IF R<4 THEN R=4 
640 COLOR 1:60SU6 770 

650 P=PEEK< 764 >:IF P=31 THEN E=10:KK=KK+ 

1 :GQSUB 800:POKE 764,255 

66 w IF P=30 THEN KK=KK+1:E=20:6OSU6 840: 

POKE 764,255 

670 IF P=26 THEN KK=KK+1:E=30:GOSU6 :3S0: 

POKE 764,255 

680 COLOR 0:GQSUB 77U 

690 NEXT K 

790 COLOR i:GQSUB 770:FOR L=1 TO 50 

710 A=INT<RND<0 >£3>+1:COLOR _A:PLOT R , K: 0 

RAWTO RND< 0 >£159 ,PMK 0 >£79: SOUND 1 ,RND< 0 

>£90,120,15:NEXT L:SOUND i,0,0,0 

720 GRAPHICS 0 : Y “YOU LUST:... 11 

730 ? :? "YOUR SCORE WAS "iS 

740 7 :7 "YOU WILL BE DISHISSED FROO THE 

u 

750 ? "FEDERATION !...AND SHOT!" 

760 ? :? :GOTO 1080 

770 PLOT R+1,K+1:DRAWT0 R+6,K+1:PLQT R,K 
+2:PLOT R+l,K+2:PLOT R+3,K+2 
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f"80_PLO i K+4*K+2*. PLuT H+6#K+2:PLOT R+7#K 
+2sPLOT R+1 *K+3:CiRfiWT0 R+6*K+8 
790 RETURN 

800 COLOR 2:PLOT 6#12:DRHHTO R+5#12:CQL0 
R 0sPLOT 6#12:DRHWTG 159#12:FOR L=i TO 2 
55 STtP 80:SOUND 1*L*10*15:NEXT L 
810 IF K>=3 FIND K<=11 THEN 926 
820 SOUND 1*0*0*0 
830 RETURN 

840 COLOR 2:PLOT 6*32:DRHHTO R+5#32:CQL0 
R 0:PLOT 6*32:DRHHTO 159*82:FOR L=255 TO 
1 STEP -80:SOUND 1#L#10*15:NfcXT L 
850 IF K>=29 AND K<=31 THEN 920 
860 SOUND 1#0*0*0 
870 RETURN 

880 COLOR 2:PLOT 6,52:DRHHTO R+5*52:COLO 
R 0: PLOT 6*52:DRHHTO 159*52:FOR L=155 TO 
355 STEP 30:SOUND 1,L*10,15:NEXT L 
890 IF K>=49 HND K<=51 THEN 920 
900 SOUND 1 *0*0*0 
910 RETURN_ 

920 RET] EXPLOSION! 

930 POP :POKE 764*255 
940 FOR N=1 iO la 

950 Q=< RND< 0 >X 12 >-5: W=< RND< 0 ># 12 >-5 

960 COLOR INT<RND<0>t3>+l 

970 PLOT R+3 # K+3:DRHWT0 R+Q*K+H:SOUND 1* 

RND'l 0 Xfc90 * 120 # i 5: NeXT N 

980 COLOR a 

990 FOR L=fi-7 TO R+7:PL0T L*K—7*DRHHTO L 
* K+7:NEXT L:S=S+E:SOUND 1*0*0#0 
1000 E=0 
1010 NEXT OU 

102a FOR 8=1 TO 3:F0R J=1 TO 255 STEP 4: 
SOUND 1*0*10*15:NeXT J:NeX1 8 
103a SOUND 1*0*0*0 

1040 8RHPHICS 0:? :? :? “VOU DID IT !!!" 
1050 ? :? "VOU KILLED EUERV SINGLE HLIEN 
80P1B " 

1060 :? "VOU USED "*KK*“ SHOTS OF VOUR 
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flnrio" 

1070 ? :? "THAT 6IUES VOU ft SCORE OF “;S 

-< KK#2) 

1880 ? :? "ANOTHER SATIE ";:TRAP 1080: INP 

UT m 

1090 IF A*< 1,1 >="V" THEN RUN 
1100 ? :? : ? : ? "THANKS FOR THE 6ATK!" : ? 
:? :END 
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TRAP ’EM 

In this exciting one or two player game, you have to try and 
surround your opponent. This is done by using the two 
joysticks to force your opponent to crash. The player to 
force his/her opponent to crash ten times is the winner. 

There is also the availability of playing in two different sizes 
of blocks, large or small. The computer will ask you at the 
beginning of the game as to which size blocks you would 
like to play with. Just respond T for large or ‘s’ for small. 

There is also the feature to play against the computer, 
Arnold. The computer plays quite well but is easily beaten 
with small blocks. Playing the computer using large blocks 
presents a real challenge. 
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ifl REH irap'em Written By 
£0 REf'i £•?■’ Paul Esunn , FEB 1982 %% 

-■ U H EI *1 -v- p : . 

40 DI FI ASK 15 > , B$< 15 > , SIX 6 > 

50 GRAPHICS 0s 3ETC0L0R 4,8,2:SETCQLGR 2, 
8,2: ? “WHAT IS PL AVER l'S NAP1E "j: INPUT 

60 ? "DO VOU WISH TO PLAV AGAINST THE 
COTPUTER " ;: INPUT B$: IF B5-C i , 1 >=" V 
THEN Cf1P=l 

70 ? :IF NOT CPF THEN ? "OK, PLAVER 2'S 
NAP1E INPUT BT-: GOTO 90 
80 : "UK, VUOR GUlNb TU PLAV AkNOLD.":B 
f-= 11 ARNOLD " 

90 ? s? " THANK VOU." 

100 ? "DO VOU WISH TO PLAV WITH SPTALL OR 
LARGE BLOCKS "iSINPUT SL$ 

110 ? :? :? "HIT THE RED BUTTON TO CONTI 
HUE. " 

120 IF STRIS< 0 >=1 AND STRIG<1>=1 THEN 12 
0 

l3U ih 8LTP i , I • ,= "L‘' THEN GRAPH IU8 19 • X1= 
7:V1=10 s X2=33s V2=10 

140 IF SL$<1,1>=“S“ THEN GRAPHICS 2l:Xl= 
12:VI=24:¥2=24:X2=S8 

150 E1 = 1:F3=1:h£=U:E3=0:E4=W: h 1=@: h 8=0:F 

4=6 


l 60 COLGK -3 

170 IF SL$< i#l >= U L U THEN PLOT 2,2:DRHWT0 
_38,2:DRAWTU 38,23:DRAWTO 2,23:DRAWT0 2, 

18U it 8L4K 1,1 ,‘="S‘‘ THtN PLOT 2,2sDRAWTU 
_78,2:DRAWT0 78 , 46*: DR AWT U 81, 4b • DRAHT U 2, 

l9u COLOR 1:PLOT XI,'Vi 
200 COLOR 2:PLOT X2,V2 
210 S1=STICK<0 >:S2=STICK<1> 

220 IF SI=15 THEN 320 
230 SOUND 0,90,10,8 

840 ir 81=7 UR 81=6 UR 81=5 THEN 1.1=1: *£h3 

I ij ^ k y 
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£50 

El=0 





260 

ih 51 =5 UK 3 

1=13 OR 3 

1=9 

THEN 

E2=l:G 

07 0 

280 





d i 0 

L2=0 





?88 

IF 31=3 OR S 

1=11 OR 3 

1 = 10 

THEN 

E3=i: 

GOTO 

300 





230 

E3=ti 





300 

Ik 31=1o uR 

31=14 OR 

31=6 

THEN 

E4=l: 

GOTO 

! 320 





310 

E4=0 





320 

SOUND 0,130, 

10*3:IF 3 

2=15 

AND 

NOT C 


HP THEN 510 

330 IF HOT CriP THEN 430 
340 IF RND<0 >>0.91 THEN R=INT< RND< 6 »'-4 )+ 
1-11=1:IF R=1 THEN LOCAJE X2+1#Y2*J:IF J 
—h THEN F1=1: F2=0:F 8=0 • P 4=t> 

•ioO If Ii HHO P;=E iHEN LOCATE X2#Y2+1 *<J: 

IF J=0 iHEN Fl=0sF2=l:F3=0sF4=0 

360 If II AND R=3 THEN_LOCATE X2-1*Y2.pJ: 

IF 0=6 THEN F1=0:F2=@:F 3=1:F4=S 

i 0 ii“ i i hND Pi“‘+ i HEi -i_ LULH i E r' : i 2 i y ^ 1 r 0 ■ 

IF ■_f=0 THEN F1=0:F2=6 :f 3=0:F4=1 
380 IF_F3=i THEN LOCATE X2-1*V2*K:IF K=0 
THEN 510 

390 IF Fi=l THEN LOCATE X2+1*¥2*K:IF K=8 
THEN bl8 __ 

<+80 IF F2=i IHEN LOCATE X2*V2+1#K:IF K=0 
THEN 510 

410 IF F4=l THEN LOCATE X2*V2-l#KsIF K=0 
THEN 510 

420 I1=0:SOTO 930 

430 IF 32=7 OR 32=6 OR 32=5 THEN F1=1:G0 
TO 450 
44@ f1—0 

456 IF 32=5 OR 32=13 OR 32=9 THEN F2=l:6 
OTO 470 
466 F2=0 

470 I r *52=3 UK 32=11 UR 32=10 THEN F3=l - 
GOT0 430 
488 F3-U 

498 IF 32=10 OR 32=14 OR 32=6 THEN F4=l: 
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ijOT u 510 
500 F4—0 

510 SOUND 0*0#@*0 

528 IF El=i THEN X1=X1+1 

530 IF t2=l THEN V1=V1+1 

540 IF E3=l THEN X1=X1-1 

550 IF E4=l THEN V1=V1-1 

56® IF Fl=i THEN X2=X2+1 

570 IF F2=i THEN V2=V2+1 

580 IF F3=l THEN X2=X2-1 

590 IF F4=l THEN V2=V2-1 

600 REfl XX CHECK IF CRASH XX 

6 i U LOCATE X1 *V1 * C1 

620 LOCATE X2*Y2*C2 

630 Ih C1O0 OR C2< >0 THEN 850 

640 GOTO 190 

650 FOR H=1 TO 30:FOR 6=60 TO 80 STEP 6 

660 IF Cl<>0 THEN COLOR H:PLOT XI*VI 

670 Ih C2O0 THEN COLOR H:PLOT X2*V2 

680 SOUND 0*6*10*18 

690 NEXT 6:NEXT H 

700 GRAPHICS 0: SOUND 0*0*0*0 

718 ? i! “*:SETCQLGR 2*3*2:SETO3L0R 4*8*2 

720 IF Cl< >0 AND C2O0 THEN ? At-i" AND 11 

* 0 $ *:bu10 770 

738 IF C2< >0 THEN ? 8$;:SC1=SC1+1 
740 IF Cl<>0 THEN ? AXi:SC2=SC2+1 
750 REf‘1 XX Someone W-=is c r-ashed XX 
766 ? " BITES THE DUST.“:GOTO 788 
770 ? " BITE SHE OUST.“:SC1=SC1+1:SC2=SC 
2+1 

780 ? :? 

790 ? “ SCORES 

800 ? _Af-;":" i SC1 i " _ “*B$*":"*SC2 
810 Ih SC 1=10 OR SC 2=10 THEN 880 
820 ? 2 ? 

830 IF SCi>=SC2+5 THEN ? WINNING 

BV hHK ! ! ! 11 2 GOTO 870 

840 ih -z»C2>=SCi +5 THEN '? 111 3 WINNING 
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BV FfiK !M":GGTO 87'8 

850 IF SC1=SC2 THEN ? "IT’S H DRfiW AT TH 
e rioriEN goto b f 0 

868 ? “THERE’S HOT P1UCH IN IT_“ 

870 GOTO 110 

380 ? : ? : ? :FOR *3=1 TO 255 STEP 2: SOUND 
0*6*10*10:NEXT 6:FOR 6=255 TO 0 STEP -6 
;SOUND 0*6*10*10:NEXT 6:SOUND 0*0*W,0 
890 IF SCI >SC2 THEN ? ft$*" WINS THE GfiPlE 
"COHGRfiTULfiTIONS "*0$:GOTO 920 
900 IF SC2TSC1 THEN ? B**“ WINS THE GAPE 
“CQNGRfi i ULfiTIQNS “ *b$: GOTO 928 

910 "t “WELL DONE * BOTH OF VOU_"I 

F‘S H DRfiW !!!“ 

920 END 

930 Rfc.Pl #ARNOLD : S PfiTH Is BLOCKED-F 
940 IF Fl=l THEN LOCATE X2*¥2-l*Li:IF LI 
=0 THEN F4=l:F3=0iF2=0:F1=0:GOTO olO 
950.IF Fl=l THEN F2=1:F1=0:F3=0:F4=0:GOT 
u • j 1 y 

960 IF F2=i THEN LOCATE X2-1 *V2*L1:LOCfiT 
E_X2+1 *V2*L2:1F L1=0 THEN F4=0:F3=1:F2=0 
'■ i - 1=0: GUT0 510 

970 IF F2=l THEN F2=0:F1=1:F3=0:F4=0:*3OT 
0 510 

930 IF F3=l THEN LOCATE X2*V2-1*L1:IF LI 
=0 THEN F4=l:F3=0:F2=0:Fl=0:6OTO 510 
990 IF F3=i THEN F2=i *.F1=0:F3=0:F4=0:GOT 

0 510 

1000 IF F4=l THEN LOCATE X2+1 * ! t‘2*L1 : IF L 
1=0 THEN F4=0:F3=0:F2=0:Fl=l:GOTO 510 
1010 IF F4=l THEN F2=8:F1=0:F3=l:F4=0:GO 

TO 510 
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REACTION TIMER 

This short program uses a short machine code subroutine 
to time how long it takes you to press the space bar. If you 
cheat and hold the space bar down, the computer will give 
the worst time possible: 65535. 

To play, type RUN and then as soon as you see an orange- 
coloured dot appear on the screen, press the space bar. 
Sounds simple? Then try and get a time of less than 
16,000!!! 


130 



10 RED ttt REACTION TI PIER t%% 

20 REP1 WRITTEN FtB 19b2 £££ 

30 REH %%'%- BV PAUL BUNN. 

40 FOR L=0 TO 37:READ A:POKE 1535+L, A:NE 

50 DATA 104,173,252,2,24,201,33,240,21* 1 

b 9 j y J 1 1* I 1 3 l_ \ -1‘ r 1 j I r 1 {-l 1 3 25iiL 3 ci 3 20 1 , 1* t- ! 

bU DATA 240,15,230,212,208,245,230,213,2 
0o 3 241 3 169 3 255 3 133 3 213 
70 DATA i33,212,96#96 
80 GRAPHICS 0 

90 ? "TO PLAt : WHEN VOU SEE A ORANGE SP 
OT IN THE MIDDLE OF THE SCREEN , PRESS’ 1 
100 ? "THE SPACE BAR AS QUICKLV AS VOU C 

AN. " 

110 OPEN #1,4,0,"K:“ 

120 ? " READY ? ? ?" 

130 GET #1,A:IF A< >ASC<“V"> THEN 130 
14 @ ? " '}" 

100 GRAPHICS 19:CULUR 1 

160 FOR L=1 TO INT<RND<0>$10@0 >+600: NEXT 


170 PLOT 20,12:POKE 
SR<1535 ) 

180 GRAPHICS 0:? :? 
190 IF X=65535 THEN 
60T0 260 

200 IF X<9200 THEN 
VOUR LIGHTNING FAST 
210 IF X<15080 THEN 


212,0:POKE 213,0:X=U 

“SCORE : 11 iX 
? “DID VOU CHEAT 

"WHERE DID VOU GET 
REACTION ?":GOTO 260 
? "EXCELLENT.":GOTO 


26u 


220 IF XK13060 THEN ? “UhRV GOOO INDEED. 
11 s GOTO 268 

230 IF X<23000 THEN ? "NOT BAD.GOTO 26 


240 IP X< 28080 THEN ? "PATHtTIC! ” :GQTO 2 
60 

250 ? "THAT WAS TERRIBLE! ! !. ..." 

260 ? :? :? "ANOTHER TRV ? <V-N>" 

270 GET #1,A:IF A=ASCi"V"> THEN 150 
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GOOD BYE 


280 IF_H< >HSC<: "N" > THEN 270 
290 HJK 8=1 iO 9s? :NEXT 6s ? 
.":END 


132 



REVERSI 

Reversi was invented in 1888 and is played on a standard 
draughts board, using double-sided pieces - white on one 
side, black on the other. In his splendid book “Discovering 
old Board Games” (Shire Publications Ltd, Aylesbury, 
1980), R.C. Bell explains that black begins the game by 
placing a piece, blackside up on one of the four central 
squares on the empty board. White replies by placing his/ 
her first piece Whiteside up on another central square. 
“These four squares are covered in the first four turns of 
play, and then the players continue alternately, placing 
their pieces on a square adjacent to one occupied by an 
enemy piece”, Mr. Bell writes. Any enemy piece in a 
straight line between the latest piece played and another 
one of the player’s pieces when the board is completely 
covered, or when neither player can move. 

You’ll find that the computer is very hard to beat but plays 
quite slowly. To enter your move as a single double digit 
number corresponding to the number of squares across by 
the number of squares down. e.g. 45 would be 4 across, and 
5 down. Happy playing! 


133 




30 HJK B=1 !U 10-huH C—1 IU 10 
40 IF BOl AND CO! AND BO10 AND CO10 
l KEN H<B#C>=46 
56 NEXT_C:NEXT B 

60 A< 5 * 5 >=83 : A< 6 * 6 >=88 - fl( 8 * 5 >=73: A< 5 * 6 >= 

:'H * R = H 

7y bHriPH i CS 7 ■ r'UKE 758 * 1: SETCOLOR 4 * 18 * 8 
:SETCOLOR 2*12*2:SETCOLOR 1*0*12:ShTCOLO 
R 0*8*0:OPEN #1*4*0,"K:“ 

80 POSITION 2*1i:POKE 752* 1:? “Nou1d you 
I i KS t.Q QQ t j rst ( V- X H ) ? u 

30 GET #1*A.:IF A< >83 AND A< >78 THEN 30 
100 GOSUB 440 


110 

IF A=83 

THEN 350 

120 

8=73:T= 

88: H=@ 

130 

FOR h=2 

TO 3: FOR 6=2 TO 3: IF A(fl*B>< 

>46 

THEN 290 

140 

Q=0:HUH 

C=-l TO l:FOR U=-l TO 1:K=y: 


H=B 


150 

11 - hK h +L* * b+D K. >S THhN 170 

160 

K=K+1:F 

=F+C :6=6+0 : GUT0 150 

170 

II- fl(F+C,6+0X>T THEN 190 

180 

Q=Q+K 


180 

NEXT D 


200 

NEXT C 


210 

IF A=2 

OR 0=9 THEN Q=Q£2 

220 

IF B=2 

OR B=3 THEN Q=QX2 

230 

I r B=3 

OR 8=8 THEN Q=Q.-'8 

246 

IF 0=3 

OR 0=8 THEN Q=Q/2 

250 

Ih <H=2 

OR 0=9 > AND (. B=3 OR B=8> THE 

N Q= 

=Gm*2 


260 
N 0= 

IF <M=3 

: OR A=8> AND < B=8 OR B=3> THE 

270 

i r fcK H 

OR Q=0 OR <RND<0»0.3 AND Q=H 

) THEN 290 


280 

H=Q: F1=fl 

C N=B 

290 

NEXT B 


300 

NEXT A 
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310 IF H=w AND R=0 THEN 610 
320 IF H=0 THEN 340 
330 GOSUB 540 
340 GOSUB 440 

35b ’? u Hri-Eft- is your movs (' ttiitr 1 0‘ it y 
ou c an not 90 ) j 

360 3=38:1=79 

370 TRAP 370:INPUT R:TRAP 40000 
380 IF R=0 THEN 420 

338 IF R<11 OR R >88 OR ROINT<R> THEN 35 
0 

400 f1= I NT< R--19 >+ 1 : H=R-10* I NT i R/18 >+1 
410 bU 8 UE: 54b 
420 GOSUB 44£i 
43£i GOTO 120 

448 RED % % % % DRAW BOARD s % % % 

4501 COLOR Is FOR X=44 TO 116 STEP 9: PLOT 
44#X-44:DRAWT0 116,X-44:PLOT X#0:uRAWTO 

X#72sNEXT X 

460 FOR X=2 TO 9 s FOR V=2 TO 9 
470 IF A<X,¥><>46 THEN GOSUB 650 

489 NEXT Vs NEXT X 

490 S1=0s S 2=S1s FOR X-2 T0 9s FOR V=2 TO 9 
: IF £KX*V)=79 THEN S1=S1+1 

500 IF A< , :: i , V >=88 THEN S2 = S2+1 
510 NEXT Vs NEXT X 

520 ? s? "SCORES HE “ ;S2#‘‘ VQU 

i O i 

530 RETURN 

548 FOR C=-l TO is FOR D=-l TO isF=Hs 6 =N 

550 IF A<F+CjG+DX>S THEN 570 

560. F =F+C: G= 6 +Q: GOT 0 550 

570 IF_fl<F+C jG+O X >T THEN 600 

580 At F,G >=T: IF ri=F AND N=G THEN 680 

59@ F=F-Cs6=6-0sGOTO 580 

600 NEXT D:NEXT CsRETURN 

610 IF S2>S1 THEN ? "I WON “iS2i"-";Sl 

620 IF S2<S1 THEN ? "YOU WON ”;S1;"iS2 

630 IF SI =82 THEN ? "IT’S A DP;AH" 
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640 END 

650 COLOR < A< X ,V >=79 >t 1 -K A< X , V >=38 >t 
660 p=c«; X-l '}%9 >+40:0=< < V-i >&9 >-4 
670 PLOT P-l#0-4:PLOT p,0-4 
680 PLOT P-2,0-3:ORAWT0 P+1,0-3 
690 PLOT P-3,0-2:DRAWT0 P+2,0-2 
700 PLOT P— 4,0—1:DRAWTU P+3,0—1 
710 PLOT P—4,u: C»RAHTU P+3,0 
720 PLOT P-3,0+1:ORAHTO P+2,0+1 
730 PLOT P-2,0+2:GRAHTO p+1,0+2 
740 PLOT P-1,0+3:PLOT p,0+3 

750 return 
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SALES ANALYSIS 

This simple business program was designed for 
shopowners, so that they could see how sales were going 
for a particular commodity. The program can be used to 
analyse up to eight goods or services. You input the 
number of sales for each month for each goods/service. 
The number of sales must not be above 84. 

After all data has been entered, you will be able to see the 
data on the screen so that you can alter anything if you so 
desire, say a mistake on data entry. The data will then be 
displayed visually, in the form of a graph. The red line 
indicates the average. 
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10 

20 


PF‘,'1 Xa 

GRAPH IL- 


ALES ANALVSIS 
0: POSITION 11 


*w -U 
V- -V- 



"SALES 


LVSIS" 

30 POSITION 17,1:? "BV" 

40 POSITION 10,2:? “PAUL BUNN IN 198; 
00 UIfl f!$*:; 12X9 >,T P- 15 >,Q< 12 >: mi 1 >= “ 
P 108 >= 11 “: mi 2 >=m 


AHA 


n 


S0 hOR n=0 iO 11:REAU !$,d:n$< P1X9+1 ,P1XS+ 
9 >=j$: q.; pi+1 >=j: NEXT fl 

70 DATA JANUARY , 7 , FEBU AR V , 7 , fl ARCH , 5 , APR I 
L,5,flAV,3,JUNE,4,JULY,4,AUGUST,6,SEPTET® 
EH , S , UC T OBER , 7 , NOUEf'lBER , 8 


80 DATA DECEf1BER,8 
90 OPEN #1,4,0,“K:“ 

100 POKE 764,60 

110 ? :? :? “press 1 KtTURN* when ready." 
120 GET #i,A: IF AO 155 THEN 118 
130 ? :? 

140 ? “HotM many soods/sev i ces are sold “ 
i :TRAP 140:INPUT I:TRAP 40000 
150 IF K>INT< I > OR I<i OR I>8 THEN ? " 
BETWEEN I & 8":GOTO I40 
160 Qlfl 8S$< 15X1 ): GST-t 1 >=" " : 6S$< 15X1 >=“ 
!i * il .J = 6d*3* 

i?0 FOR P=i TO I 

1 o0 Y _ " Good 11 ; P i 11 = 11 ; ■ [ RHP 1 d0 2 i NPUT J‘$ 2 T 
Rfip 40000 

130 bb$( ( p— i 1 5+ i * \ r — 1 1 0+14 T $ 


200 HEX I P 

2iO ? s? « ? ’‘Trank you«,, H 


220 DIf'i dHi-Ebk i I ? #PRdHTv. 1 

230 ? • ? press 1 RET!jrh ‘ to cont i nue. il 

240 GET #1,h: IF 00155 THEN 240 

cD0 hOR d—1 TO I • y :i Jodies analysis of H 

i 6Sf< S-1 >& 15 h-I , < S-1 >& 14415 > 

260 TRAP 2602? u Input last years avarage 
sa l e (enter 1 @ 1 i f not k nouin ) 11 ; s I NPUT 

fi:pRSNTXS>=0 
270 FUR f*l = l Tu Id 

280 ? * y u i m< k ri—i X£ 3 +i ,< pi— i >$349 ) 
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290 ? ,! " i : FOR P=1 TO Q>:' p] v " " i: NEXT 

p:? :? 

30-0 R’EPl ££ AnaIyse sales ££ 

3i0 ? "Sales analysis of “ i GST-(cS~ 1 >£ 15+ 

1 ti S-i>£14+15> 

320 TRAP 320:? :? "TOTAL SALES INPUT 
_P: SALESi! PLS >=P 

330 IF P>84 THEN ? “I'lfiKIf'lUPl NO. OF SALES 
IS 84!":GOT0 320 
340 TRAP’ 40W00 
350 NEXT Pi: NEXT S 

380 ? :? :? "j-S-ales analysis complete." 
370 •? : v “Would you like to check ";: TRH 
P 370:INPUT T$:IF T$<1,1>="n» THEN 500 
380 FOR Pi=l TO I:? ">":FOR P2=l TO 12 
390 7 P2 i “ > “ ; i'lf < < P2-1 >£9+1,< P2-1 >£8+3 > #" 
SALES=" i SHLES< P2#P1 > 

400 NEXT P2 

410 TRAP 430:? “Alter anything <enter nu 

iftber >";:INPUT T:TRAP 40006 

420 IF T>0 AND T<13 THEN GOTO 450 

430 NEXT Pi 

446 GOTO 560 

450 ? "Enter new sales for " * p]$<<T-1 >£9+ 

1 , < T-1 >£9+9 > i 

460 TRAP 460:INPUT W:IF W<0 OR W>84 THEN 
? “Be-tween 1 and 84!":GOTO 460 
478 TRAP 40060 
486 SALESCT j P1>=W 
490 GOTO 416 

506 ? :? :? " Now to see graphs." 

516 GU T0 14{0 

528 REfl ££DRAW GRAPH SUBROUTINES 
530 RESTORE : FCiR W=1 TO 24: READ T$: NEXT 

M 

540 COLOR 1:PLOT 5#0:DRAWTO 5,83:DRAHT0 
159 j 83 

550 FUR K=78 to 4 STEF‘ -4 

560 PLOT 2,K*.DRAWT0 4,K: NEXT K 

570 FOR K=13 TO 159 STEP 13:PLOT K,S4:DR 
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ft WTO K,8i 
□80 FOR 
590 READ 
600 NEXT 
610 NEXT 
620 UNTO 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 

700 data 

710 DATA 
720 DATA 
730 DATA 
740 DATA 
750 DATA 
760 DATA 
770 DATA 
780 DATA 
790 DATA 
808 DATA 
830 DATA 
820 DATA 
830 DATA 
840 DATA 
850 DATA 
360 DATA 
870 DATA 
330 DATA 
890 DATA 
800 DATA 
910 DATA 
820 DATA 
930 DATA 
340 DATA 


.1=88 TO 94:FOR I2=-3 TO 3 
A: IF A=1 THEN PLOT K+12,11 
12:NEXT II 

K 

0 , 0 , 0 , 1 # 0 * 0*0 
0 , 0 * 0 , 1 , 0 , 0,0 
0 , 0 , 0 , 1 , 0 , 0,0 
0 * 000 , 1 , 0 , 0,0 
0 , 0 , 0 , 1 , 0 , 0,0 
1 , 0 , 0 , 1 , 0 , 0,0 
0 , 1 , 1 , 0 , 0 , 0,0 
1 , 1 , 1 , 1 , 1 , 1,0 
1 , 0 , 0 , 0 , 0 , 0,0 
1 , 0 , 0 , 0 , 0 , 0,0 
1 , 0 , 0 , 0 , 0 , 0,0 
1 , 1 , 1 , 1 , 0 , 0,0 
i,0,0,0,y,0,0 
1 , 0 , 0 , 0 , 0 , 0,0 
1 , 1 , 0 , 0 , 0 , 1 ,£ 

1 , 0 , 1 , 0 , 1 , 0,1 
1 , 0 , 0 , 1 , 0 , 0,1 
1 , 0 , 0 , 1 , 0 , 0,1 
1 , 0 , 0 , 0 , 0 , 0,1 
1 , 0 , 0 , 0 , 0 , 0,1 
1 , 0 , 0 , 0 , 0 , 0,1 
0 , 0 , 0 , 3 , 0 , 0,0 
0 , 0 , 1 , 0 , 1 , 0,0 
0 , 1 , 0 , 0 , 0 , 1,0 
0 , 1 , 1 , 1 , 1 , 1,0 
0 , 1 , 0 , b , 0 , 1,0 
0 , 1 , 0 , 0 , 0 , 1,0 
0 , 1 , 0 , 0 , 0 , 1,0 
1 , 1 , 0 , 0 , 0 , 1,1 
1 , 0 , 1 , 0 , 1 , 0,1 
1 , 0 , 0 , 1 , 0 , 0,1 
1 , 0 , 0 , 3 , 0 , 0,1 
1 , 0 , 0 , 0 , 0 , 0,1 
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950 DfiTfi i,0,9,0,0,0,1 
960 UfiTfi i,0,0*0,0,0,1 
970 DfiTfi 0,0,0,1,0,0,0 
■io@ UftTfi 9,0,0,1,0,0,0 
990 MTfl 0,0,0,1,0,0,0 
1000 UHTfi 0,0,8,i,0,0,0 
1010 DftTfi 0,0,0,1,0,0,0 
1020 DftTfi 1,0,8,1,0,0,0 
1030 DftTfi 0,1,1,0,0,0,0 
1040 DftTfi 0,0,8,1,0,0,0 
1050 DftTfi 0,0,0,1,0,0,0 
1060 UftTfi 9,0,0,1,8,8,8 
1 Qj"0 DftTfi 0,0,0, 1 ,0,0,0 
1080 UfiTH 0,0,0,1,0,0,0 
1090 DfiTfi 1,0,0,1,0,0,0 
1100 UftTfi 0,1,1,9,0,0,0 
lil0 DftTfi 0,0,0,1,0,0,0 
1120 DfiTfi 0,0,1,0,1,0,0 
1130 DfiTfi 0,1,0,0,0,1,0 
1148 Dfiifi 0,1,1,1,1,1,0 
1150 DfiTfi 0,i,0,0,0,1,0 
1168 DfiTfi 0,1,0,0,0,1,0 
1170 DfiTfi 0,1,0,0,0,1,0 
1138 DfiTfi 0,1,1,1,1,1,0 
1190 DfiTfi 1,0,0,0,0,0,0 
1298 DfiTfi 1,9,8,8,8,8,8 
1210 DfiTfi 0,1,1,1,1,1,0 

1229 UftTfi 0,8,0,8,0,0,1 

1230 DfiTfi 0,0,0,0,0,0,1 
1240 DfiTfi 0,1,1,1,1,1,0 
1250 DfiTfi 0,0,1,1,1,0,0 
1268 DfiTfi 8,1,8,8,8,1,8 
1270 DfiTfi 1,0,0,0,0,0,1 
1238 DfiTfi 1,8,8,8,8,0,1 
1230 DfiTfi 1,8,0,8,0,0,1 
1308 UftTfi 8,1,0,8,0,1,0 
1310 DfiTfi 0,0,1,1,1,0,0 
1328 DftTfi 1,8,8,0,0,8,1 
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1336 DATA 1,1,0,0,6,0,1 
1340 DATA 1,0,1,0,0,0,1 
1350 DATA 1,0,0,1,0,0,1 
1360 DATA 1,0,0,0,1,0,1 
1370 DATA 1,0,0,0,0,1,1 
1330 DATA 1,0,0,0,0,0,1 
1^90 DATA 1,1,0,@,0,0,0 
1400 DATA 1,0,1,0,0,0,0 
1410 DATA 1,0,0,1,0,0,0 
1420 DATA 1,0,0,0,1,0,0 
1430 DATA 1,0,0,0,1,0,0 
1440 DATA 1,0,0,1,0,0,0 
1450 DATA 1,1,1,0,0,6,0 
1460 RETURN 

1470 KEPI &X DRAW GRAPHS 
1480 ? "i-dies on y-axi=-“ 

1490 ? "flonths on x—axis" 

1500 ? i ? “red i ine indicates avaraye." 
1510 FOR 6=0 TO 1-1:? "Graph for sales o 
t “ i 6S$(. bX15+1 , bX15+14 
1520 ? sV 'ready ??“ 

1530 GET #1,A:IF A<>ASC<“9“> THEN 1530 
1540 GRAPHICS 7+16:SETCOLOR 0,0,0:SETCOL 
OR 4,2,8:GOSUB 520 

1550 SETCOLOR 1,7,4:COLOR 2:SETCOLOR 2,3 

1560 PLUT 6 * o4~PRoNT\ G+1> 

1570 FOR K— i 3 TO 156 STEF* 13 
1580 DRfiWT0 K,34—SfiLES< K> 13,6+1> 

1530 NEXT K 

1600 l =3: FOR W=i TO 12:T=T+SHLES< W,6+l >s 
NEXT W:OUkGEO-12 

1610 COLOR 3:PLOT 6 , 34-OURbE • DROWT0 159, 
84-ftURSh 

1620 GET *i,0: IF 00155 THEN 1600 
1630 NEXT 6 

1640 hkOPH 1 Lb 0« Y 11 0^i-B 1 ms i s coiftpl^trt* 11 5 E 

ND 


142 



OLD FORTY-NINER 

This game is like checkers, except it is played on a seven by 
seven board (rather than eight by eight, as in checkers). The 
pieces move as checkers pieces-diagonally one square, 
jumping over an opponent for a capture, into an empty 
square beyond. The main difference from checkers, apart 
from the size of the board, is that pieces may move forward 
and backward at will. There are no ‘kings’, as every piece can 
move as if it is a king, and there are no multiple jumps. 

The computer is the X’s moving down the screen, and you 
are the O’s. You move by entering the number of the square 
you’re moving from (entering the number along the left hand 
edge first, then the number along the top, then pressing 
RETURN) then the number of the square you’re moving 
from. 

The computer keeps track of the score, tells you (before it 
moves its pieces) which square it is moving to, and 
terminates the game as soon as one player manages to 
capture five of the opponent’s pieces. 

The program shows some structured programming tech¬ 
niques. Line 30 sends the action to a subroutine at the end of 
the program which initialises the variables. The computer 
then goes to its move routine, starting at 7000. Having made 
a move, it returns to the start of the program, and from there 
goes to the subroutine at 8000 to print out the board. From 
there it goes to subroutine 6000 to accept the player’s move, 
8000 to reprint the board, then back to the computer’s next 
move . . . and so on. 
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The advantage of working in this way - with a specific sub¬ 
routine for each section of the program - is that you can 
easily alter part of the program which appears unsatis¬ 
factory, without facing the danger of running out of lines, or 
of ‘getting lost’ in the program. Placing the variables 
assignment at the end has the advantage that you can add 
new ones, as the need for them becomes apparent, without 
any real problems. 
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la REP! OLE FORTY-NINER < 7X7 CHECKERS > 

20 REP! <C> HARTNELL 1982 

39 GOSUB 9000:REP! INITIALISE 

40 GOSUB 7000: REP! CQHPUTER PIQUES 
60 GOSUB 3000:REP1 PRINT BOARD 

70 GOSUB S00@: REP! ACCEPT PLAYER PIQUE 

90 GOSUB 3000:REP! PRINT BuARD 

1000 GOTO 40 

6000 PRINT 

6050 PRINT “FROPV 1 ; 

6060 INPUT P! 

6070 PRINT "TO"; 

6030 INPUT N 
6090 H< N >=120 

6035 IF ABS< Pl-N>=22 OR ABS<P1-N>=18 THEN 
HC (Pl+N V2 >=46 

6097 IF ABS<. PI—N>=22 OR ABS<C PI—N>=1S THEN 

P!E=f1E+i 

6100 H< PI >=46 

6390 RETURN 

7000 REP! COP1PUTER PIQUES 
7010 FUR: A=76 TO 12 6TEF' —1 
7020 IF H< A >< >111 THEN 7060 
7030 FOR B=1 TO 4 

7032 IF A<28 AND B<3 THEN 7050 

7033 IF A >60 AND B>2 THEN 7060 
7035 Q=2£Z<B > 

7040 IF H< A+Z< B > >=120 AND H< A+Q >=46 THEN 

7070 

7050 NEXT B 
7060 NEXT A 
7065 GOTO 7300 
7070 HCA+Z<B > >=46 
7080 H<A >=46 
7090 H(A+Q>=111 

7092 Y=A+Q 

7093 X=A 
7095 IT=IT+1 
7100 RETURN 
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7290 NEXT H 

7300 REN RANDOM MODE 

7319 V=« 

7320 V=V+1 

7330 K=INT< RND< 1 >&66>+12 

7340 IF HCKXMll AND V<100 THEN 7320 

7350 IF H< K><>111 THEN 7460 

7360 FOR t = I Tu 4 

7370 IF H< K+2< T > >=46 THEN 7400 

7360 NEXT T 

7390 IF ¥<70 THEN 7310 
7395 GOTO 7460 
7400 H< K+Z< T > >=111 
7410 H< K >=46 
7415 X=K:V=K+2>: T> 

7420 RETURN 

7460 PRINT "I CONCEDE" 

7470 END 

7990 RETURN 

8000 REM CLEAR SCREEN 

8010 PRINT 

8015 PRINT "I MOOED FROM "sXs" TO ";V 
8017 PRINT 

8020 PRINT "SCORES: VOU: ";ME;" ME: 

T j 

8840 PRINT :PRINT :PRINT 
8050 PRINT 1234567“ 

8060 FOR J=76 TO 16 STEP -10 

8070 A=H< J+1 >: B=H< J+2 >: C=H< J+3 >: D=H< J+4 > 

: E=HC J+5 >: F=H< J+6 >: G=H< J+7 > 

8080 PRINT 10;‘ , # ,, iCHR^<A>;CHR$<B>;CHR 
$< C >iCHF»< D >iCHR*< E >iCHR*< F >;CHR$< 6 >; “#■ 
;J/10 

8090 NEXT J 

8110 PRINT 1234567“ 

3120 IF IT=5 OR ME=5 THEN 3140 
8130 RETURN 
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3140 IF IT=5 THEN PRINT "I HIN<" 

8150 IF PE=5 THEN PRINT "VOU HIN!" 

3999 tND 

3009 REiPl INITIALISE 
9010 IT=0:flE=0 
9020 DIN HK99>,Z<4) 

9030 FOR A=1 TO 99 
9040 hk A >=0 

-5050 IF R >77 OR 5=70 OR R=50 OR 
R=68 OR fl=69 OR R=50 OR R=59 OR 

R=5S OR R=4-0 OR R=4-9 OR R=4S THE 

N GOTO 9090 

9055 IF R=30 OR R=3S OR R=39 OR 

R =20 OR R =28 OR R=29 OR Rill THE 

N GOTO 9090 

9060 H-: A >=46: REN . 

9070 IF A=72 OR 14=74 OR A=76 OR (4=61 OR 
A=63 OR A=65 OF: A=67 THEN H<A>=111 
9060 IF H=21 UR (4=23 OR 14=25 OR H=27 OR 
A=12 OR A=14 OF: A=16 THEN H<fi>=120:REPl x 
9090 NEXT H 

9100 FOR (4=1 TO 4*.READ B:Z<04=6:NEXT A 
9110 DATA -11,-9,11,9 
9200 RETURN 
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GANYMEDE IV 

This game, in the HUNT THE WUMPUS genre, places you in 
a maze of tunnels on Ganymede 1V, where-if you survive for 
25 minutes-you’ll be rescued. There are beasties, gems and 
other things to deal with. The beasties tend to kill you, the 
quicksand is inescapable, the gems may make you rich (if 
you survive), but the space warps are the worst of all. Enter a 
cave containing one of these and you will be transported to 
another cave in the system. From time to time your computer 
will print out the cave system as seen from above. 

Once you’ve got this program up and running, you can use 
the basic framework to create as many HUNT THE 
WUMPUS type games as you like, placing contents and 
animals of your own choice in the caves. There is also a lot of 
scope for adding colour, sound and graphics to the program. 

The game is straightforward to play. You start in cave 
(‘sector’) 55, and can move up, down, right or left one square 
at a time. Your Atari will warn you when things are nearby, but 
due to a defect, will only tell you of the contents of one nearby 
cave/sector, and not of all of them. It will not tell which of the 
nearby caves it is describing. A cave is empty after you leave 
it, so you cannot revisit a gems cave over and over again to 
enrich yourself. If you enter a quicksand cave, the game ends 
with a printout of the whole system. The same happens if a 
beastie eats you. 
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It) Rtfi £ * * £ £ GfiHYPIEut IU $ £ £ £ £ 

2@ RE PI ( c ) Hartnel I 1382 
30 RE PI 

40 6R NPH ICS 9: DI PI G$< 11>, H< 100 > , Z$< 2 > s DL 
=PEEKX560>+256*PEEK<561 >+4:POKE DL-1,70: 
POKE UL+2,6:POKE 752,i:E=53 
50 FOR X=1_TU 11s REND y:6$< X,X >=CHR$< V >: 
HEX S _ X s pNTN r* 1,37,238,88,103,228,68,101, 
82,283,86 

60 3EiCOLOR i,6,10:SETCOLOR 2,0,0:SETCOL 
OR 3,11,10:OPEN #1,4,0,"Ks“:StiCO lOR 8,1 
4,10 

70 FOR X=i TO IMPOSITION X+3,0: ? 6$<X,X 

j 

80 FOR V=15 TO 0 STEP -1:SOUND 0,X*20,8, 
V:NEXT V:GOSUB 180:NEXT X 
80 GOTO 120 

100 H=PEEK<70S >:POKE 708,PEEKX 708 >:POKE 

708,PEEKC 711>:POKE 711,fi:RETURN 

110 ? CHR$<i25>:POSITION 4,0:? G$: RETURN 

120 FOR X=1 TU 100:R< X >=46:IF X<12 OR X> 
90 THEN H(X >=47 

130 Z$=STR$< X*10 IF Z$<2>="0“ OR Z$<2>= 
"1” THEN NCX >=47 

140 GOSUB 100:SOUND 0,< INKX/3 >0X^3 >*X, 
8,8:NEXT X:SOUND @,8,0,0 
130 FOR X=1 TO 6:N<INT<RND<0 >*76+12 >>=47 
: NC INK RNDC 0 >*76+12 > >=63: Ni INK RNDC 0 >*76 
+ 12>>=66 

160 fi< INK RND( 0 >*76+12 > >=81: fK INK RNO<0 > 
*76+12 > >=71:GOSUB 100: SOUND 0,X*1@,12,8: 

next x:sound @, 0 , 0,0 

178 FOR X=255 TO 0 STEP -5:SOUND @,X,12, 
15:GOSUB 100:NEXT X:SOUND 0,0,0,0 
180 H< E >=72: Q= INK RND< 0 >*7 >: IF Q=8 THEN 
GOSUB 1840 

190 0=1:? "You are in cave number ‘ME:IF 
6>0 THEN ? "With Ganymede oems worth 

if 6 

280 GOSUB 800:? :? :? "You must survive 
for another "j 25-H:? "more minutes!":? 
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“10 

? > ? i ? 5 i WH i C h 

direction to you want 

to 

move i; 


220 

? 15 ( North , Sout 

h,East or West> ?";:P0 

KE 764*255 


236 

I h FLEKa 764 X > 

255 THEN GET 41, b: 2$=C 


HR$(2 >: K=@:X=X+<Z?= "W" >-KZt-= " S “ :>+<Z$= “E" 
>+< 2$=“N" >: IF X=1 THEN 25U 
240 GOSUB 100:FOR X=1 TO 30:NEXT X:60T0 

02? j/j 

2H0 ij=0: POKE 764,255: IF 2$=”N ,i THEN ? "N 
ORTH" 

260 IF Z$= “S“ THEN '? “SUU iH" 

270 IF ZT="E" THEN ? "EAST" 

280 IF Z$="W" THEN ? "WEST" 

290 FOR X—15 TO 0 STEP -0.4:SOUND 0,E,10 
,X:60SUB 190:NEXT X 

300 IF Z$-= "N" HND A<E-10>=47 THEN U=1 
310 IF Z$="S" AND A*:!E+10>=47 THEN U=1 
320 IF Z*="E" AND A<E+1>=47 THEN U=1 
330 IF 2$= n W" AND A<E-1>=47 THEN U=1 
340 IF U=1 THEN ? :? 11 Bloc Red tunnel n. 

..":FOR X=8 TO 3:FOR V=3 TO 28 

350 IF U=1 THEN SOUND 8,V,10,15:SOUND 1, 

¥+3,10,15: NEXT V-NEXT X*.SOUND 0,0,0,0:30 

UND 1,0,0,0:GOSUB 110:GOTO law 

368 A< E >=46: E=E-K Z$="E" X Z*=“W" >-KZ$="S 

11 >X10-c Z#-=“N" >X1@: F=E 

378 IF A< F >=63 THEN GOSUB 440 

380 IF A<F>=ee THEN GOSUB 550 

390 If PKF>=81 THEN GOSUB 68w 

400 IF ACF>=71 THEN GOSUB 730 

410 GOSUB 110:H=H+l:IF H=25 THEN Q=9:G0S 

UB 980 

420 GOTO 180 

430 REN * % SPACEWARP CAUE % % 

440 GOSUB 110:? "WARNING:Vou have just e 
ntered a cave” 

458 ? "containing a SPACEWARP!!.." 

460 ? : ? " Vou ar e nou< go i ng to be t-r-ans 
ported" 
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470 ? !, to another cave... .STAND BY!" 

480 FOR X=4 TO 50 STEF* 5sGOSUB 100 
490 FOR V=30 TO 250 STEP X 
500 FOR 2=0 TO 3:SOUND Z,Y+Z,10,15:NEXT 
Z:NEXT v:NEXT X 

510 FOR Z=1 TO 3:SOUND Z,0,0,0:NEXT Z 
520 FOR X=255 TU 0 STEF* —2: SOUND 0,X, 12, 
15:NEXT X:SOUND 0 , 0 ,0,0 
530 FK E >=0: E= I NT< RND< 0 >£76+12 >s RET URN 
540 REfl % % BEASTIE CAUE % % 

550 GOSUB 110:? "WHOOPS! There's a BEAST 
It in herei!!" 


560 FOR X=1 iO 15:FOR p-255 TO 50 STEP - 
25:SOUND 0,P,10,15:NEXT p:GOSUB 100:NEXT 
X:SOUND 0,0,0,« 

570 P1=RND< 0 >: IF PK8.2 THEN ? :? "But luc 
k i 1 y f or you , i t has not “: ? ! * detec ted y 
our presence":GOTO 640 

580 ? "AND IT SEES YOU ! N." 

590 FUR X=255 TO 0 STEF* — 1: SOUND 0,X, 1 0 , 
15:NEXT X 

600 If PI> 0.8 THEN ? :? "But it decides n 
ot to eat you because":? "humans yive hi 
m i nd i yest i on. 11 : GOTO 640 

610 ? :? "AND HE EATS YOU. 11 

620 FOR P=1 TO 3:? "HUNCH..GOSUB 100: 
FOR X=0 TO 5:FOR Y=1 TO 5:SOUND 0,X,8,X: 
NEXT V 

630 NEXT X:NEXT P:SOUND 0,0,0,0:GOTO 980 
640 ? :? "HIT ANY KEY":POKE 764,255 
650 IF PEEK*- 764 X >255 THEN GET #1, A‘.POKE 
764,255:RETURN 

660 FOR X=1 TO 30:NEXT X:GOSUB 1U0:GOTO 
65@ 

670 RED % % QUICKSAND CAGE % % 

680 GOSUB 110:? "You have entered a cave 


containiny" 

690 ? " QUICKSAND!!!!!!! 


700 FOR F-l TO 
D 0,X,8,15:FUR 


35: X=INTt; RNEK 0 >£8+4 >: SOUH 
Y=1 TO 30:NEXT Y:&DSUB 10 
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NEXT P 

710 GOTO 330 

720 RET! t % 6ANVP1EDE GEP1S OWE * $ 

730 GGSUB 110:?' " Well done , you nave f 
ound some “ 

740 '? " Ganymede ye ms! j “ 

750 ? s? ,! They are worth $" i 

760 K= I NT C RNDC 0 >% 100 >+50:'? K » 11 ! " 

770 S=6+K:FOR V=1 TO 20:FOR X=3+Y*3 TO 2 
0+¥$3:SOUND 0,X,10,l5:NfcXT X:SOSUB 100:N 
EXT VsSOUNU 0 j 0 j 0 j 0 
730 RETURN 

790 REP1 % % SECTOR CAME SCAN $ % 

300 L=46: IF ACE-11 >046 THEN L=ACE-11> 
310 IF ACE~10X>46 THEN L=HCE-10> 

820 IF ACE-3>046 THEN L=ACE-9> 

830 IF AC fc-1>< >46 THEN L=A< E-l> 

840 IF ACE+IX>46 THEN L=ACE+1 > 

850 IF Ac b+3 X >46 THEN L=ACE+9> 

860 IF ACE+10>O46 THEN L=ACE+10> 

370 IF AC E+l1X >46 THEN L=ACE+11> 

888 IF L=46 THEN RETURN 
390 ? “Computer reports:-" 

300 IF L=47 THEN ? “Blocked tunnel “j 
310 IF L=63 THEN ? "Space warp " ; 

920 IF L=66 THEN ? "Ganymede EE ASTIE "i 
938 IF L—dl THEN ? "Quicksand cave " ; 

940 IF L=71 THEN ? “Ganymede yews " - r 
350 ? "nearby":? :? 

960 RETURN 

970 REP1 % % END OF P1ISSION % % 

980 IF GK >0 THEN 1000 

990 ? :? “END OF P1ISSI0N - VOU ARE DEAD" 
1000 ACE>=72:? :? "VOU SURUIUED FOR "iHi 
'■ MINUTES"; 

1010 IF H=25 THEN ? " ..NELL DONE" 

1020 IF H< >25 THEN PRINT 

1030 ? "AND FOUND GET1S NORTH $";G 
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1048 ? :? "Ganymede sector profile:":? 
1050 FOR -J=0 TO 90 STEP 10 
10S0 H=fi< U+l >: N=£K 0+2 >: 0=fi< 0+3 ;>: P=fi< 0+4 ) 

: Z=PK J+5 >: H=fK 0+6 >: S=fi< 0+7 >: T =i¥. U+8 > : U=fi 
< J+9>:U=ft(J+10> 

1078 ? CHR$< PI >iCHR$< N >iCHR$< 0 >;CHR$< P )iC 
HR$< Z >;CHR$< R >iCHR$< S >;CHR$< T >;CHR$< U >iC 
HR$< U >:NEXT J 

1080 FOR J=1 TO 208:SOUND 0,0,4,10:NEXT 

0:SOUND 0,0,0,0 

1090 IF Q<>0 THEN END 

1100 ? "HIT START KEV TO CONTINUE" 

1110 POKE 53279,0:IF PEEK<53279X >S THEN 

lil0 

1120 SOSUB 110:RETURN 
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MAZE-RUNNER 

If you like difficult puzzles, then you’ll love this game. It took 
me more than a week to design the maze, and longer than 
that to convert it into numbers which the computer under¬ 
stands. 

The maze is three times bigger than the screen size of a 
graphics mode 5 screen! 

I designed this program to utilize a method of scrolling 
which I thought of. By altering the fourth and fifth byte of 
the display list (which are pointers to the screen memory 
area), you can scroll up or down by adding or subtracting 
the number of bytes in a scan line. This is the technique 
used in this program. 

Once you’ve given up trying to solve the maze, you can see 
‘Arnold Atari’ do it. 
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T : i_! i -v- -v- - : i ; - - : i : - -v- -V- v- -v- 


2 REfl £ f'lfiZE RUNNER-WRITTEN t 

3 REP! % BV PAUL BUNN AND IAN NICOL X 

4 REfl 


REP1 


6 REfl 

10 l-OK 0=1536 TO 1536+7 :REhD C: POKE U#C: 
NEXT J: DIP"! 6$( i) 

20 uATA 1U4#165#203#37#204#133#205#96 
30 GRAPHICS 5:SETCOLOR 0#4#6 
40 A=PEEK«: 560 >+256£PEEK< 561 >: POKE 752 # 1 
50 W=PEEKC A+4 H256XPEEKX A+5 > 

60 W=W-2500: X= I NT< H^256 >: V= I NT< W-XX256 >: 
B=H 

70 POKE A+4#V:POKE A+5#X:IF PEEK<W)=85 T 
HEN 110 

80 ? 11 PLEASE WAIT.": TRAP i 10: RESTORE 770 
98 READ C 

100 POKE B #C:B=B+1:GOTO 90 
110 TRAP 40800:RESTORE 110 
120 REfl tt P1AIN LOOP tt 

13m "Would mou like arriold t-o tr-y it- " 

i: Input g$; if g$= ,, v i ‘ then e=i*-v=e 

140 FOR I=W+23i9 TO W+2319+<3X20 > STEP 2 

0:POKE I,255:NEXT I 

150 L=480+H: Pl= 16:? ">":pOKE 752# 1 

160 POKE L#< PEEKX L >+Pl > 

170 IF NOT E THEN O=STICKX0>:POKE 77#0 
130 R=R-1 

190 IF E AND R<1 THEN READ 0#R 
200 IF 0015 THEN POKE 53279#0 
210 IF PEEK*! L+l >=255 AND Pl=l THEN GOTO 7 
00 

220 IF 0=14 THEN GOSUB 420:POKE L#<PEEKX 

L Ml>:L=L-20:GOSUB 270:GOTO 160 

230 IF 0=13 THEN GOSUB 450:POKE L#<PEEK< 

L1*—PI): L=L+20: GOSUB 390: GUTU 1 €-0 

240 IF 0=7 THEN POKE L#PEEK-1 L;*-fl:H=INT< PI 

/4 >:GOSUB 370:GOTO 160 
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250 IF 0=1 i THEN POKE L,PEEKC LMl:N=f1$4: 

GOSUB 320s GOTO 160 

260 GOTO i?0 

270 P=PEEKCfi+4 >:P=P-20 

280 IF P<0 THEN POKE fl+5,PEEKCfl+5>-l :P=P 

+256 

280 PUKE ft+4,p:RETURN 

300 F-PEEKCfi+4>:p=P+20:IF P>255 THEN PQK 
E fl+5 , PEEK*- fl+5 >+1: P=P-256 
310 POKE 0+4,P:RETURN 
320 REF! 

330 IF PI>255 THEN P1=1:L=L-1 

340 POKE 203, PEEKC L>: POKE 204,P1:K=USRC 15 

36 

350 IF PEEKC205>=F1 THEN Pl=INTCfV4>: GOSUB 
370:GOSUB 480 
3bO RETURN 
370 REP1 

380 IF Pl=@ THEN P1=G4:L=L+1 

390 POKE 203,PEEK<L>:POKE 204,Pl:K=USRC 15 

36 > 

400 IF PEEKC 205 >=N THEN P]=f1:*4: GOSUB 320: 
GOSUB 480 
418 RETURN 

420 J=PEEK<L-20 >: POKE 203,J:POKE 204,FttK 
=USRC1536> 

430 IF PEEKC205 >=P1 THEN POP :GOSUB 480: G 
OTO 170 
440 RETURN 

450 d=PEEKC L+20 >: POKE 203, J: POKE 204,Pi: K 
=USRC1536) 

460 IF PEEKC205 >=fl THEN POP :GOSUB 488:G 
OTO 178 
478 RETURN 

480 FOR 1=10 TO 0 STEP -1: SOUND 0,C L--256 

>,10,I:NEXT I:RETURN 

480 DATA 14,10,7,4,14,4,11,4,14,8 

500 DATA 7,4,13,4 

ol0 UfiTfi { ,6,1-^,-b, { ,2,14,2, i ,2, lb,5,11,1 
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520 DOTH 7*12*14*10 

530 DATA 11* i*'*14*2* »' *11*14*2 f * i* *2*1 -2*5*11 
*4*1--** l y * r * 1* 12 * 2 * ll * ii 

540 DA i A 13*5*7*4* 14*3* 11*1* 14*2* f *-2*1-2* 
13*8* 100* 11 *4* 12**5* i‘ *2* i2**h* i*‘ *2*8* 100 
550 DATA 13*2*7*3*13*31*11*21 
5G-0 DATA 14*8* 11 *6* 14*2* f * £s* 1 2**8* ** * 1 f * 14 
*2*11*3*14*2*7*3*14*2*il*-2 *14 *2*11*8*14* 

4 * i ’ * iL. * 1 2* * £l * »* * !' 

j 0 DMI A 14*2* 11 *5* 14*2*r**5* 14*2* 11 *5*14 

* 2 * r* * 5 * 14 * 9 * 11 * £* * 1 2» * 2 * o * r‘ 5 

0 o 0 lJM i A i *4*^-2* *5* 11 *5* 1-2 *2* 11*4*14*2*1'* 

1 * 14*5*11*2*13*3 

□30 DAT A 11 *2* 1-2* 1 * 1 i *5* 14*2*»’ *2* 14* 1 * r’ * 

2 * 14* 3 * 11 * ^.* 14 * 1 £**^i 1^* 2* * 1 2*2* 11 *2* 1 2 * 2 * i*" * 
2*12*2*11*2*12*2* ( * 2 * 

600 DA IA 12* * 2 * 11 * 2* * 12* * 2 * i** * 2* * 12* * 6* 

610 DATA 7*2*13*2*11*2*13*4*11*2*14*10*1 

1 *5*12* *2* £ *2«*l2**2*l 1 *2** 12« * 2 * £ *2** i 2»*2* 11 * 

2 * 12**2* i‘* *2* 12*2* f* * 1 * 1-2*2* 11 * 2 * 14* 1 

S2@ JjATA 11*3*13*2*11*3*13*3*7*2*14*1*7* 

2*12 *2* *ll*l*l2*2*i’ *2* 1-2*2*11 *5* 13*2* f *2* 

13*6*11*2*14*1*11*5*14*1 

6-2*0 0 AT A 11 *6* 12*2*11,2* 1-2*2* 11 *4*13*2*1’ 

*6** 14*2** £ *2** 14*2** i *2* 12** 1 * { *4* 12**5* 11 *2* 

14*2* 11 *2* 12*2* 11 * 2 * 1-2* * 21 *( *4 

6*40 DAT A 14 * i 0 * «’ * 4 * I -2* * i 1 * i*' * 4 * 12* * 2 * i'’ * 22 * 1 

2*15*11*20* 12*4* f *11 * 12*2**’ *2*14*4**' *2*1 

2* * 4 * i** * 2 * 14 * 4 * *■’ * 2 * 1 -2» * 4 * *■' * c* 

650 DATA 14*2* 11 *6* 14*2* *' *o* 1-2*4* { *2* 14* 
4*7*1*14*1 *?*6*£s*200 

bb0_DA]A 14*4*7*4*14^2*7/2*14*16* 14 *2*14 

* 3 * i’ * 1S * 12 * 2 * 11 * 1 £** 12* * 5 * **’ *2* 12‘*2*7*2*14* 
2* i *4* 12*2* 11 *2* 1-2*5*3*250 

6* i 0 DAT A 11 *4*1 2 * * 4 * * *4*12* *2*11 *4*12* * 5 * ( 
5* 14*2*7 *2* 14*1* f *2*1 -2**1*§'' *2*14*1* i*’ *2*1 

* 1 * r* i *1-2*2* 11 *4 

680 DATA 13*2*7*4*13*2*11,6*14*2*11*4*1 
#2* *2*12**2*11 *2* 12«*2** 11 *2* 12**2** i J ’*2* 14* 

* i * lL * 14 * -2 

b30 U AT A 7 *2* 14*2* r’ *6* 1-2*2*! 1 *4*1^2*2*11* 
2 * 12* * 2 * f * 4 * 14 * 2 * f * 2 * 12« * 2 * i ‘ * **’ 

* 
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700 REP1 :m:m VOU WIN $S&ZZtZ 

710 FOR J=15 TU 0 STEP -2:FOR H=100 TO 2 

00 STEP 12:SOUND 0,<J+10>$10,10,12 

720 SOUND 1jH<10#12:SETCOLQR 0,<RND<0>*1 

6>,8*. NEXT W-NEXT J 

730 SETCQLQR 0*6#4:SOUND 0*0*0,0: SOM) 1 
* 0 * 0*0 

740 GRAPHICS 0:POKE 752*1:? " Hell d 
one j you managed Co esc ape 11 

750 ? "the death-detying maze, you are on 
e of":? "great intelligence to complete 
such" 

760 ? "an incredible task." 

770 DATA 85*85,85*85*85,85*85*85*85*85 
r 80 DAT A 65*85*85*85*85*65*85*85*65*85 
790 DATA 64*4*4*68*4*0*0*0*0*88 
800 UHTH 0*64*0*16,0*0*0*0*0,1 
810 DATA 64*4*6S*4*6 q*S5*85*85*84*4 
820 DATA 84*63*85*17*85*85*85*85*85*81 
£80 DATA 65*4*4*68*68*64*0*0*0*6.8 
840 DATA 4,64*1*17*0*64,64*64,0*17 
850 DATA 65*5*20*64*68*69*85*85*85*85 
860 DhTA 66*85*61 * 1 ( *20*4*4*34*85* 17 
8 f 0 DATA 65*0*0*85*64*64*1*1*1*64 
830 DATA 68*64*1*' *1*5*85*68*4*65*1* 

890 DATA 65*68,68*64*85*85*16*16*16,68 
800 DaTH 63*85*17*65*64*0*85*68*5*1*' 

910 DATA 69*69,84*68*64,16*21*85*85*68 
820 DATA 66*64*lb*0*65*64*8*66*65*If 
9o0 DATA 69*0*68*4*69* 1 * *80*0*0*4 
940 DATA 68*69*85*84*0*5*34*64,81*17 
950 DATA 69,84,69*20*65*16*17*85*85*84 
960 DATH 68*64*0*5*65*64*4*84*31*17 
970 DATA 64,4*69*20*81*21*16*0*4,0 
960 UATH 68*85*85*64*0*85*68*4*1*17 
990 DATA 85*68*5*16*65*0*21*85*68*85 
1000 UATA 68*8*0*85*64*64*69*69*81*17 
1010 DATA 85*68*84*17,81*85*81*0*68*64 
1020 DATA 5*85*34*64*0*84*64*64*65*17 
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1030 DOTH 63*68*0*80*17*1*1*17*68*63 
1840 UflTfl 35*0,4,68*35*84*84,84*63*17 
1050 DATA 64*4*2i*8i,17*17*17*16,68*64 
1060 DOTH 1*21*68*68*64*0*4*4*68*17 
1070 DflTfl 63*84*16*1*16*16,17*20*68*69 
1080 DflTfl 81*16*4*68*63*85,63*68*68,17 
i830 DflTfl 68*0*17*85*21*85*81*16*68*64 
1100 DflTfl 17*17*84*68*68*0*64*63*68*17 
1110 DATA 68*85*81*1*0*5*81*17*68*63 
1120 DflTfl i7*16*4*63*68*84,84,68,63,17 
li30 DflTfl 68*80* 1*21 *85*68*0* 16*6£:*65 
1140 DATA 16*21*68*64*4*4*4*68*65*17 
1156 DATA 68*85*21*16*0*63*85*85*68*81 
1160 DflTfl 21*30*4*35*35*63*68*68*85*17 
1170 DATA 68*1*16*17*84*64*8*0*4*17 
1138 DATA 21*31*84*0*0*0*68*68*1*17 
1190 DATA 63*1*17*16*68*63*84*85*85*17 
1200 DATA 21*80*5*85*35*84*68*63,21,17 
1210 DATA 65*5*17*20*64*68*0*64*16*17 
1220 DATA 21*85*64*0*0*68*68,63*80,17 
1230 DATA 65*68*0*4*85*68*85*63*17*81 
1240 DflTfl 16*0*85*35*34*68*68*64*17*17 
1 £.‘50 DATA 64*63*85*68*0*68*4* 1 * 1 i * 1 
I^60 UflTfl 21*34*0*0*0*68*63*85*17*17 
1270 DflTfl 84*64*0*63*84*63*68*85*17*17 
1280 DflTfl 16*21*85*85*85*68*68*64*17*17 
1230 DATA 84*85*84*64*0*64*68:* 1*17,81 
1300 DATA 17*0*64*0*0*68*68*63*31*17 
1310 DflTfl 84*0*4*85*63*68*63*81*16*1 
1320 DATA 17*84,63*35*84*63*64*64*81*17 
1330 DflTfl 64*21*68*0*4*4*68*1*11'*85 
i%i40 DATA 11’ *0*68*0*64*63*85*84*65* 17 
1350 DflTfl 68*85*69*68*84*84*68*85*17*0 
1360 DATA 17,21*68*68*4*0*4*4*63*17 
1370 DATA 68*85*64*68*64*64*68*1*17*21 
1380 UflTfl 31*4*4*63*35*85*68*68*68*17 
1330 DATA 68*5*64*68*63*69*69*81 * 1^ * 16 
1400 DflTfl 1*64*68*65*0*0*68*63*68*31 
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1416 DATA 69,85,68,68,68,4,4,1,17,16 
1420 DATA 21,85,85,85,1/ ,b4,by,bS,4,b5 
1430 DATA 64,0,4,68,68,84,84,85,17,21 
1440 DATA 0,0,1,35,17,4,68,63,84,85 
1450 DATA 63,21,84,68,63,64,64,1,17,1 
1460 DATA 85,85,80,1,17,68,68,64,8,1 
1470 DATA 68,16,0,68,64,63,85,81,1(,81 
1480 DATA 0,0,21,31,31,4,68,63,85,35 
1430 DATA 64,80,85,68,68,68,0,17,16,17 
1500 DATA 21,85,16,1/' , l/ - ,£0,68,63,4,5 
1510 DATA 68,65,64,4,66,68,85, i f ,21, 1 { 
lu20 DATA 4,5,17,17,17,4,68,68,68,63 
1530 DATA 68,65,5,84,68,68,1,1 i ,1,1 f 
1540 DATA 64,65,17,17,17,68,63,68,68,63 
1550 DATA 68,65,20,0,68,63,81,17,81,17 
1560 DATA 85,85,17,17,16,4,68,68,63,63 
1570 DATA 68,64,16,85,6^8,68,1,16,17,16 
1580 DATA 0,0,1 { ,17,1 < ,63,68,64,64,65 
1590 DATA 68,85,81,64,68,68,85,21,17,i7 
1608 DATA 63,35,31,1 i' ,17,63,68,85,85,31 
1610 DATA 64,0,1,5,68,68,1,16., i/,1 { 

1620 DATA 0,0,1,1,17,4,68,0,0,21 
1630 DATA 81,84,85,20,4,63,81,17,81,21 
1640 DATA 21,85,81,85,1/' ,20,63,35,35,1 
1650 DATA 65,84,81,16,84,68,1,16,17,0 
1660 DATA 16,0,17,84,1,16,64,0,1,31 
1670 DATA 63,4,1,16,64,68,85,17,81,85 
1630 DATA 81,35,17,84,35,1/' ,81,85,30,1 
1690 DATA 68,4,63,17,69,68,1,1,81,1 
1700 DATA 16,1,17,84,64,17,17,16,21,85 
1 f 10 DATA 68,68,68,16,4,5,81,85,1,1/ 
1720 DATA 1,81,17,84,63,31,17,17,0,1 
1730 DATA 68,68,68,81,84,84,80,64,21,17 
1740 DATA 21,31,17,84,63,17,17,17,85,81 
1750 DATA 68,6£:,64,65,0,64,20,69,80,17 

l /*68 Data 0 , i, 1 ( , 80 , 63,1 {, 1 / , 1 , 0,1 
1770 DATA 64,64,68,69,21,63,0,64,1,81 
1730 DATA 85,81,17,81,63,17,17,85,21,35 
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If30 DATA y5#85jt8#byjlbf5it>ii85jd5jb5 
1300 DOTH 64,1,1f,65,5,If>ibj0f0*l 
1810 DOTH 64,0,4,68,81,84,17,0,0,69 
1820 DATA 63,35,17,63,20,17,21,85,85,65 
l£*ii0 DOTH 65,21,64,68,65,0,85,21,34,64 
i340 DflTfl 4,0,If,4,16,If,0,0,0,65 
1850 DATA 64,16,0,68,64,17,64,0,4,69 
I860 DATA 84,85,81,20,31,17,85,35,84,65 
1870 DATA 63,81,85,68,85,80,63,85,68,84 
1380 OATH 4,3,1f,16,65,16,0,5,84,35 
1830 DflTfl 64,1,0,4,0,64,68,0,4,4 
1300 DflTfl 35,35,17,17,63,21,63,64,0,1 
1310 DflTfl 85,85,21,85,84,63,68,85,85,68 
1320 DflTfl 0,0,17,17,85,0,68,85,85,35 
1333 DflTfl 64,0,21,1,3,64,68,64,64,63 
1340 DflTfl 84,85,81,16,0,4,4,64,1,1 
1350 DflTfl 85,20,83,17,21,84,68,4,4,68 
1360 DflTfl 4,0,17,21,35,85,84,85,81,17 
1370 DflTfl 64,20,1,81,16,0,63,85,84,68 
L380 DflTfl 63,85,17,0,0,3,16,0,31,1f 
1333 DflTfl 63,85,85,1,17,84,64,0,4,68 
2003 DATA 64,0,17,85,81,81,17,84,81,17 
2810 DflTfl 68,0,0,21,16,5,85,85,68,68 
2020 UfiTfl 35,85,81,8,1b,17,16,4,17,If 
2&S0 DflTfl 66,85,^5,61,21,68,0,0,68,68 
2040 DflTH 0,0,1f,21,21,1f,1f,63,1f,17 
2050 DATA 68,0,0,1,21,68,85,84,68,68 
2060 DflTfl 85,63,81,if,i,lf,16,65,17,If 
2070 DflTfl 68,1,85,85,0,68,0,4,68,68 
2080 DflTfl 64,64,17,17,81,17,21,81,17,17 
2030 DflTfl 63,81,0,1,85,63,85,68,68,68 
2100 DflTfl 84,85,17,17,81,17,16,17,1,17 
2110 DflTfl 64,1,21,80,0,68,0,68,68,68 
2120 DflTfl 4,64,17,16,17,17,17,17,85,17 
2130 DflTfl 84,85,16,21,84,0,68,68,68,63 
2140 DATA 63,63,81,If,81,17,17,16,0,17 
2150 DflTfl 84,64,17,3,21,85,68,68,68,64 
2l60 UflTH 68,64,1f,16,17,17,17,21,35,81 
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2170 DfiTfi 64,69*81 ,85,16,0,4,68,68,85 
2188 DOTH 84,85,17,21,17,17,1,0,16,1 
2190 DfiTfi 85,68,1,1,17,85,84,68,0,0 
2200 DfiTfi 0,0,17,16,1,17,85,81,17,85 
2210 DwTfl 64,4,85,1f,16,0,4,69,85,85 
2 22 6 DfiTfi 85,85,81,21,81,1 ( ,16,1 { ,16,1 
2230 DHTfi 69,84,64,ir,21,85,68,64,0,0 
2240 DOTH 0,0,1,0,17,17,17,17,21,81 
2258 DOTH 64,0,69,80,16,0,4,85,&>,85 
2260 DfiTfi 85,85,85,35,17,17,17,17,16,1 
2270 DOTH 85,85,68,21,81,85,84,0,0,0 
2280 DfiTfi 0,0,0,1,21,17,17,1,17,85 
2290 DfiTfi 64,64,68,4,16,0,5,85,85,85 
2-i00 DHTfi 35,85,85,81,0,17,17,85,16,1 
2310 DfiTfi 68,68,68,84,85,85,64,0,0,0 
2320 DfiTfi 0,0,0,17,85,81,17,1,21,81 
2330 DfiTfi 68,4,4,68,64,0,85,85,85,85 
2-i4y DfiTfi 35,85,85,16,8,1,0,1 < ,0,1 
2350 DfiTfi 85,85,68,68,69,84,64,64,0,0 
2360 DfiTfi 0,0,1,21,85,85,85,85,35,81 
2370 DfiTfi 64,0,68,68.68,0.68,69,85,85 
2330 DHTfi 35,85,31,3,0,6,0,6,6,17 
2396 DfiTfi 69,20,68,68.69.69,68,68.0,0 
2406 DfiTfi 0,0,17,85,35,85,85.85,85,17 
2416 DfiTfi 69,16.68,68,64,68,64,68,85,85 
2426 DfiTfi 35,85,17,1,0,6,0,0,1,17 
2430 DfiTfi 69,17,68,68,84,68,81,68,64,0 
2446 DfiTfi 64,1,17,81,21,85,85,85,81,17 
2456 DfiTfi 69,16,68,64,4,64,0,4,69,84 
2460 DfiTfi 69,81,1,1,16,8,3,8,1,17 
2470 DfiTfi 69,20,68,68,68,85,85,84,68,0 
2480 DfiTfi 63,31,85,21,17,85,85,35,35,17 
2490 DfiTfi 69,16,68,68.68,0,16,64,68,85 
2508 DfiTfi 68,17,1,1,17,16,1,0,1,17 
2510 DfiTfi 69,1^,68,68,69,85,16,69,68,64 
2520 DfiTfi 5,17,17,81,17,1,31,21,81,17 
2530 DfiTfi 63,16,68,68,68,0,16,68,4,69 
2540 DfiTfi 84,16,16,1,17,81,1,16,1,17 


162 



2550 DOTH B9 , 20 , 68 , 6*0 /boj 85 , 84 r to , §4 , 68 
2560 DfiTH 0,35,85,95, IS, 1 i ,2l,17,35, 1 { 
2570 DOTH 69, i6,68,68,6ti,SGi,0,4,S4,G*8 
2560 DHTfi 95,30,16,21 #21,1 f' ,16, 16# 1,1 i 
2590 DOTH 69,17,68,68,68,64,69,84,69,68 
2600 DfiTfi 64,1,17,1,1*1*17,35,31,17 
26*10 DfiTfi 69,16,68,6*8,6*6*,85,65,64,66*,4 
2620 DfiTfi 95,35,0,21,31,35,1 ( ,0,1 { ,1 f 
2600 DfiTfi 69,2l ,69,68,68,0,64,68,6*8,68 
2640 DfiTfi 0,8,21,16,if,0,1,21,1f,lf 
2650 DfiTfi 69,0,6,4,69,84,84,68,69,€;9 
2668 DfiTH 95,85,30,1 f , 1 f ,21,35, If' ,lf,17 
2670 DfiTfi 85,21,69,84,64,4,4,4,64,64 
2680 DfiTfi 0,1,1,81,17,16,1,17,1,17 
2690 DfiTfi 69,16,69,84,85,69,69,85,85,85 
2780 DfiTfi 35,81,21,1,17,21,81,17,35,17 
2710 DfiTfi 68,17,68,0,0,64,0,0,0,0 

2729 UHTfi 0,17,16,21,17,0,17,0,1,17 

2730 DfiTfi 68,81,63,t^.,84,85,85,85,6S,81 
if40 DfiTH 95,1 ( ,17,8i,1f,35,1 { ,95,31,1f 
2750 DfiTfi 68,64,68,0,0,64,0,0,0,1 

2 f 60 DfiTfi 1,1 ( , 1 f , 1,1 f - ,0,16,0,l,lf 
2770 DfiTfi 68,68,68,85,85,69,85,85,85,85 
2730 DfiTfi 17,17,17,21,17,21,85,85,35,17 
2790 DfiTfi 68,68,68,1,1,4,0,0,68,5 
2880 DfiTfi 17,17,17,1,17,16,20,4,5,17 
2810 DfiTfi 68,68,69,81,1 ( ,20,85,85,68,6*9 
2320 DfiTfi 17,17,17,81,17,17,0,64,65,17 
2696 DfiTfi 64,68,64,1 f ,1 { ,20,85,30,4,69 
2340 DfiTfi 17,1,0,1,17,21,69,85,81,17 
2850 DfiTfi 69,68,85,17,17,20,0,1,68,69 
2360 DfiTfi 17,21,85,21,17,0,5,16,1,17 
2870 DfiTfi 64,4,1,If,If,21,85,80,68,69 
2380 DfiTfi 16,16,0,16,1 ( ,35,35,1 f ,35,17 
2890 DfiTfi 85,84,85,17,17,0,0,20,64,65 
2900 DfiTfi 21,17,85,31,81,1,0,16,1,17 
2910 DfiTfi 64,0,1,17,17,85,85,20,85,85 
2920 DfiTfi 1,16,16,1,1,17,21,21,81,17 
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2930 dhTh 63*84*85*i7*l7*i*i*w*0*l 
2340 UfiTfi 01 *2l # 1 f *35*21 # 1 4 ’ # 1 #0# 1 # 1 { 
2950 DfiTfi 64*20,81., 17# 17*17#17*85*85# 
2960 DfiTfi 16*16*17*0,16*17*81,85*85*1 
2970 DfiTfi 85*16*65*16*16*16*16*0*0*1 
2980 DfiTfi l#lf #3l*2l*31#81*l#0#l*l< r 
2990 DfiTfi 64*17*69*21*85*85*85*85*85*85 
3000 DfiTfi 85*16*1*16*1*1*21,21*81*17 
3010 DfiTfi 69*81*1*16*0*0*0*0*0*0 
3020 DfiTfi 0,21*85*21*21*21*16*16*1*17 
j'0J»0 DfiTfi 64*1.'*8l# 1 { #S5#85#65#65#85#05 
3040 DfiTfi 135*80,0*1*16*16*17*81*85*17 
3050 DfiTfi 85*17*1*17*0*0*0*4*4*0 
3060 DfiTfi 0*65*85*81*17*81*81,1*1,35 
3070 DfiTfi 64*17*21,17*85*85*84*68*68*85 
3080 DfiTfi 84*69*0*1,17*17*1*21*16*1 
3090 DfiTfi 69*81*1*16*0*0*4*68*68*0 
3100 DfiTfi 4*68*21*35*17*0*17*0*16*1 
3110 DfiTfi 64*17*81*21*85*85*68*68*69*85 
•j 1 DfiTfi bb#63#30*0# 1 r' *35*35*85*34*1 
3130 DfiTfi 85*16*1*8*0*0*64*64*64*8 
3148 DfiTfi 4,4*1,35,16*0,0*0*4*1 
3150 DfiTfi 85*85*85*85*85*85*85*85*85*85 
3160 DfiTfi 85,85,85*35*85,85,85*85*35,35 
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ASTRO BLAST 

Our next game was written by Paul Dunning. The game is for 
two players, each controlling his or her own ship at the same 
time. You control your ship by using the joystick in port one for 
player one and in port two for player two. Pushing the joystick 
up will give you thrust, and move you one square in the 
direction you are facing. Push the joystick left or right to rotate 
the ship. 

When you first run the program, the computer will ask the 
time to play About 30 is average. The object of the game is to 
hit your opponent as many times as possible in the allocated 
time. Note that you have a limited number of shots, with the 
number of remaining energy shells shown at the bottom of 
the screen. Now, when you’re ready, blast away! 
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i ISEi's -v--v--v--v--v-■ --i---v--s---v--v- -■?- -t --t 

2 REP! % Astro blast % 

3 REP1 & - $ 

4 REP1 % Mf- i tten by Paul Dunn i ny % 

Kti 1 -y. .>*. -fc -f. -y. -y. -y-.y. .y. --V- -ir-s-- --i-- -$• -1!'- 

e REfi 

10 UI PI F1 $< 20 > * F2t< 20 ) # X< 8 > # ¥< 8 >: F1 $< i >= 
CHR$< 172 >: Fit-*:!20 >=CHR$< 172 >: Fl$< 2 >=F1$: F 

2*=",.,,...,...,..," 

20 RAP1=PEEK< 106 >-16:POKE ."56*R.HP]: IF PEEK! 
<203)0208 THEM GOSUB 890: POKE 203*200 
30 RESTORE 960:FOR 0=1 TO 3:READ XX*¥¥:X 
< Q)=XX:¥< G)=VV:NEXT G:Cl=1:C=1 
48 GRAPHICS 2 

50 ? #6*" astro blast " 

60 ? #6;" 

70 ? : ? " ENTER TIP1E TO PLA¥ INPUT TI 
80 REfl 

90 GRAPHICS 17:POKE 756*RAP1:F1=14: F2=14: 
X=5:¥=14:Q=15:W=5:FF1=1:FF2-1 
100 S=STICK<0): IF S=7 THEN C=C+1: IF 08 
THEN C=1 

110 IF 8=11 THEN C=C-l:IF C<1 THEN C=8 

120 IF S=14 THEN COLOR 32:PLOT X*V:X=X+X 

< C ):¥=¥+¥<C):SOUND 0,200*8*8 

130 IF 8014 THEN SOUND 0*0*0*6 

140 IF X<2 OR X>18 THEN X=X+-X<C):X=*iX=2 

'}% 18+( X= 18 >&2 

156 IF V<2 OR ¥>18 THEN ¥=¥+-¥<C):¥=<¥=2 
18+< ¥=18 >&2 
160 COLOR C:PLOT X*¥ 

170 IF STRIS<0>=0 AND FF1=1 THEN GOSUB 3 
40 

180 IF STRIGC1>=0 AND FF2=1 THEN GOSUB 5 
20 

law a=STICK*:. 1): IF b = 7 THEN C1 =C 1+1: IF Cl 
>8 THEN Cl=l 

200 IF S=ll THEN C1=C1-1:IF Cl<2 THEN Cl 


210 IP S=14 THEN COLOR 32:PLOT Q,H:Q=Q+X 
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c r.i ): w=W+V< Cl >: SOUND 1 ,100,8,8 

220 IF 3014 THEN SOUND 1,0,0,0 

230 IF GK2 OR _Q>18 THEN Q=Q+-X<Ci ):Q=< Q= 

2 }% 1 o+C Q= 13 .-‘-¥-2 

240 IF W<2 GR_W>18 THEN W=W+—VCCl >: W=C H= 

18 >% 2+C W=2 >&18 

25fl COLON cl:PLOT U,N 

2R0 IF FKl THEN POSITION 0,21:? #6;“out 
of fuel":FF1=0:GOTO 280 
270 POSITION 0,21:? #6i"FUEL1 “if 1$<1,F1> 

- II :£ 

230 IF F2-i l THEN POSinON 0,22:? #S;“out 
of fuel":FF2=0:GOTO 200 
290 POSITION 0,22:? #6;“FUEL2“;F2*<1,F2> 

_ H 15 

7.m POSITION 5,0:? #6;Si:POSITION15,0-? 
‘#6iS2:POSITION 8,0:? #6i"TIf'lE":PUSITIUN 
9,is? #8iINKTI" 

310 IF PEEK-; 53279 >=S THEN GOTO 96 
326 TI=TI-0.1:IF TI<0.1 THEN 800 
336 GOTO 100 
346 X1=X+X<C>:VI=V+Y< C) 

356 IF C=1 OR C=5 THEN FC=16 

360 IF C=3 OR C=7 THEN FC=12 

370 IF C=2 OF: 0=6 THEN FC=11 

330 IF C=4 OR 0=8 THEN FC=13 

390 FOR F=1 TU 5sLOCATE XI,VI,XX:COLOR: F 

C:PLOT XI,VI 

400 IF XXO-32 HND XX<16 THEN GGSUB 700: S 
1=S1+1:HH=1:GUT0 456 

416 SOUND 0,255-FX56,8,15:SOUND 1,150-F* 
36,8,155 


420 IF XI>18 OR Xl<1 THEN 450 

430 IF VI>18 OR VI<1 THEN 450 

446 X1=X1+X< 0>:V1=Y1+V<C>:NEXT F 
450 X1=X+X<C >:V1=V+VC C > 

466 FOR E=1 TO 5:COLOR 32:PLOT XI,VI 
470 IF XI>18 OR XI<1 THEN 500 

480 IF VI>19 OR VKl THEN 500 

490 X1=X1+XC C >s Y1=V1+V< C >: NEXT E 
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500 SOUND 0,0,0,0:SOUND 1,0,0,0:F1=F1-1: 

IF HH=1 THEN HH=0:GGTO 90 
510 RhTURH 

520 X2=Q+X<Cl >:¥2=H+¥<C1> 

530 IF Cl=l OR Cl =5 THEN FC=18 

540 IF Cl=3 OR Cl=7 THEN FC=12 

550 IF Cl =2 OF: Cl =6 THEN FC=11 

560 IF Cl=4 OR Cl=8 THEN FC=13 

570 FUR. F=1 TO 52 LOCATE X2,¥2,XX: COLOR: F 

CiPLOT X2,¥2 

580 SOUND 0,255-F:*50,8,15: SOUND i,150-F$ 
30,8#15 

590 IF XXO-32 HND XX<10 THEN 80SUB 750:S 

2=S2+1iHH=1:GOT0 630 

600 IF X2> 18 OR X2<1 THEN 630 

610 IF Y2>18 OR ¥2<1 THEN 630 

620 X2=X2+X<C1 >: ¥2=¥2+¥< Cl >:ND<T F 

630 X2=Q+X<C1 >s ¥2=W+¥< Cl > 

640 FOR E=1 TO 5:COLOR 32:PLOT X2 , ¥2 

650 IF X2>18 OF: X241 THEN €«80 

660 it- ¥2>19 OF: ¥2< 1 THEN 630 

670 X2=X2+X<: Cl >« ¥2=¥2+¥< Cl ):NEXT E 

680 SOUND 0,0,0,0:SOUND 1,0,0,0:F2=F2-l: 

IF HH=1 THEN HH=0:6OTO 30 

690 RETURN 

700 FOR G=15 TO 0 STEP -3 
710 FOR H=0 T0 2 
720 SOUND H,RND< 1 >#50+100,8,6 
730 NEXT H 

740 NEXT G:FOR 0=0 TO 2:SOUND 6,0,0,0:NE 
XT 6:RETURN 

750 FOR 6=15 TO 0 SThP -3 
760 FOR H=0 Tu 2 
770 SOUND H,RND<1>$50+100,8,6 
780 NEXT H 

790 NEXT 6:FOR 6=0 TO 2:SOUND 6,0,0,0:NE 
XT 6:RETURN 

800 POSITION 5,10:? #S;"SfinE OUER" 

810 S1=0:S2=0:FOR 0=1 TO 5 
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820 SOUND 0,100+C,10,15: SOUND 1,120+0,10 

,15:SOUND 2,30+0,10,15 

8-30 L=C-l:lh C=-30 THEN 850 

840 GOT0 820 

850 C=0:NEXT Q 

860 FOR Q=0 TO 2:SOUND Q,0,0,0:NEXT Q 
870 IF PEEK<53279 >=6 THEN 40 
880 POKE 53273,0:SOTU 870 
890 FOR 0=0 TO 1024:A=PEEK<57344+0>:POKE 
Ri¥!£256+Q , H: NEXT 0: C=S 
900 READ A:IF A=-l THEN RETURN 
910 POKE RAfI£256+C, A: C=C+1:SOTO 906 
920 DATA 24,24,36,36,66,90,165,135,8,18, 
50,134,52,20,8,3,132,1 i’6,_f 6,25,25,»' 6 , 1 f'6 
,192,8,8,28,52,194,50,13,3 
920 DAiA 135,1r2,90,66,26,26,24,24,16,lb 
,40,44,67,76,176,192,3,13,50,196., 196,50, 
13,3,132,17b,36,67,44,40,16,16 _ 

946 DATA 112,120,248,254,255,12K,60,56U2 
4,24,24,24,24,24,24,24,1,2,4,8,16,32,64, 
1 28 ,0,0,0,255,255, 0 , 0,0 
950 DATA 128,64,22,16,3,4,2,1, 1 
960 DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0 
,-1,-1 
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FROG JUMP 

In FROG JUMP, another game from Paul Dunning, you 
control a frog using the joystick. The object of the game is to 
get five frogs safely home, past the road and river. You must 
dodge the cars on the road. You must jump onto passing 
boats on the river, but do not jump on the yellow boats. 

Sometimes you may see your girlfriend on one of the boats. 
You can then get 200 bonus points by picking her up and 
taking her home. Chivalry brings its own reward. 

If you manage to get all your frogs home, you’ll receive a 
bonus based on the amount of time you have left. Then you’ll 
advance to an even harder round. 
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L y Kbrl 
20 RE PI •£ 


FROG - JUHP & 


.^y Khi'i £ - £ 

40 REP1 $ WRITTEN BV PfiUL DUNNING & 

50 REP1 

60 DI PI P$< 20 >,L1 $< 22 ;■ , L2$< 20 >,Cl $<20 > , C2 
$< 20 >,T 1 $< 20 > , T2$< 20 > , X$< 20 > , V$< 20 >,F $< 4 
): RAPI=< PEEKX 106 >-16 >£256 

70 GRAPHICS 17 

80 IF PEEKX RflPl+3>=0 THEN GOSUB 1140 
90 GRAPHICS 17sSETCOLOR 0,2,3:SETCOLGR 1 
, i 2,5:SETCOLOR 2,13,8:SETCOLOR 3,2,6:SET 
COLOR 4,8,1 


100 X3= 19: E= 1: 11 =50: U= 1: Pl=3: X= 10: V= 19: C= 
7: POKE 756 , RAFV256 

110 P$< 1 >=CHR$< 132 >: P$< 20 >=CHR$< 132 >: P$< 
2 )=P$: F$< 1 >=l:HR$( lb7 >: F$< 4 >=CHR$< 167 >: F$ 
< 2 >=F$ 

120 Ll$=“ MM! Mil! " 

130 L2$=" M ! ! ! ! M ! !" 

140 FOR 0=1 DO 20:READ U:C1$< Q,Q>=CHR$<U 
>:NEXT Q 

156 DA T A_ 32,1S3,163,32,32,163,163,32,32, 
163 ,163,32,32,16*3 ,163,32,32,163,163,32 
160 C2$=" # # # # # “ 

170_FOR Q=1 TO 20:READ U:T1$<Q,6>=CHR$< U 

) - NEXT Q 

180 DATA_32,166,166,166,32,32,32,134,134 
,134,32,32,32,134,134,134,32,32,32,32 
190 FOR Q=1 TO 20:READ U:T2$<Q,Q>=CHR$<U 

>: NEX i Q 


200_DAIA_ 32,32,32,32,134M34,i34,32,32,3 
2,166 ,166,166 , 32 , 32 , 32 , 134 , 134 , 134 , 32 
210 POSITION 0,10:? *6iP$ 

220 POSITION 0,2©:? #6;P$ 

23© POSITION 0,0 

248 FOR Q=1 TO 40:READ Us? #6 i CHR$<U>i:N 

EX i Q 


2-J0 U A I A 1 , 1 -i2 , -.i2 , 1 *i2 , 1 -±2 , -i2 , 1 -i2 , 1 *i2 , -i 

2,132,132,32,132,132,32,132,132,32,132,1 
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260 DATA 133 , 133 , 
2,133,133,32,133, 


32,133,133,32,133,133,3 
133,32,133,133,32,133,1 


279 COLOR C«PLOT X,V 

280 POSITION 0,6J? #6;L1$:GOSUB 6:80:POSI 
TION 0,8:? #6iTl$:GOSUB 690:POSITION 0,4 
:? #S;T2$:POSITION 0,2:? #6;L2$ 

290 GOSUB 690:POSITION 0,12:? #6;C1*:G0S 
U6 690:POSITION 0,15:? #6;C2$:GOSUB 690: 
PUS ITI ON 0,1s: Y #£■ i L IT: GOSUB £>9U 


3O0 COLOR OCsPLQT X,V 
310 LOCATE X,V,CR 

rr pc.. i - i l i n .-nv 


320 

IF CRO 

32 AND 

CR>10 

AND 

V 

>10 THEN GO 

SUB 

850 






j30 

COLOR C 

s PLOT 

X , V 




340 

X$=L2$< 

1,19): 

V$=L2$< 

20, 

20 

):V$< LEh-K V$ 

Hi; 

»— LZ'i- 

=V$ 





350 

X$=L1$< 

1,19): 

V$=Ll$< 

20, 

20 

>: LEN< V$ 

hi: 

<=X*:L1*- 

=Vf- 





360 

X$=C1$< 

1,19): 

Y$=C1$< 

20, 

20 

): V$<LEN< Y$ 

Hi: 

:«=X$:C1$ 

=¥$ 





370 

T1$=T1$ 

C 2,20 ) 

: T1 2C 

1,20 

>=' 

Tl$< 1,1) 


380 T2$=T2$<2,20 >:T 2$<20 ,20)=T2$<1,1) 

390 C2$=C2$< 2,20): C2$< 20,28 )=C2$< 1,1) 
400 S=ST ICKX 8 >: COLOR 2 
410 POSITION 5,23:? #6;"score-";3C 
420 POSITION 5,22:? #6i"time -"iT;" " 

430 POSITION 0,23:? #6;F$< 1 ,fl );“ “ 

440 T1=T1-0.05:T=INT<T1> 

450 IF S=7 THEN COLOR OCiPLOT X,V:X=X+1: 
LOCATE X,V,OC:C=8:GOSUB 820 
460 IF S=ll THEN COLOR OC:PLOT X,V:X=X-1 
:LOCATE X,V,OC:C=S:GOSUB 820 


470 IF S=14 THEN COLOR OCsPLOT X,V:V=V-.J 

:LOCATE X,V,OC:C=7:GOSUB 820 

480 IF S=13 THEN COLOR OC:PLQT X,V:V=V+J 

:LOCATE X,V,UC:6=10:GOSUB 820 

490 IF 0CO32 AND 0018 AND V>10 THEN GO 

SUB 850 

500 IF 0C=32 AND V<10 AND V>0 THEN GOSUB 
850 
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310 IF V<il iHEN J=2 
520 IF V>10 THEN J=1 
530 IF 0C=134 THEN X=X-1 
540 IF 0C=7 THEN GOSUB 1320 
350 IF 0C=33 THEN X=X+1 
560 IF GC=166 THEN X=X-1:TT=TT+1:IF TT=5 
THEN TT=@:X=X+l:GOSUB 850 
570 IF V=0 AND 0C=32 THEN GOSUB 730:GOTO 
610 

580 IF V=0 THEN GOSUB 850 

590 IF X>19 THEN X=X-1:GOSUB 856 

600 IF X<0 THEN X=X+l:GOSUB 850 

610 COLOR C:PLOT X,V 

620 IF RND<1>>0.95 AND HF=8 THEN HH=0 

630 IF H=W AND HH=6 THEN GOSUB 1330:IF H 

=0 THEN 670 

640 IF HH=1 THEN 670 

658 X3=X3-1: IF X3C2 THEN H=0:HF=1.*HH=1 

660 COLOR : PLOT X3*8 

670 R.EP1 

680 GOTO 2.-'0 

690 LOCATE X#V#AC:IF ACC7 OR AC>10 THEN 

OC=AC 

700 IF H=1 THEN COLOR 7:PLOT X3#8 

710 COLOR C:PLOT X^V:RETURN 

72U FOR W=1 TO 10:SOUND 0#W#10*15:NEXT W 

730 X1 =X: V1 = V: X= 10: V= 19 

740 FOR H=1 TO 10:SOUND 0#W#10#15:NEXT W 

750 _FOR N=10 TO 1 STEP -1:SOUND 0^N#10#1 

5:NEXT H 

760 SOUND W*0,0,0:COLOR C:PLOT X1#V1 
770 F=F+1:SC=SC+200:IF SC>2000 AND E=1 T 
HEN E=0:n=H+l 
7fc!0 HF=0 

790 IF BBC>0 THEN SC=SC+BB:BB=0 

800 IF F=6 THEN F=0:GOSUB 960:GOTO £10 

810 RETURN 

820 FOR W=55 TO 50 STEP -1 
830 SOUND 10#15:NEXT W 
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840 SOUNU 0,0,0,0:RETURN 
850 FOR W=il TO 15 

860 COLOR W: PLOT X , V: SOUND 0 , H48,10,15 

870 FOR P=0 TO 50:NEXT P:NEXT W 

880 COLOR 32:PLOT X,¥:P1=P1-1 

890 COLOR OC:PLOT X,V 

900 SOUND 0,0,0,0:00=32 

910 IF H=0 THEN 930 

920 X=10:¥=19:HF=0:RETURN 

930 POSITION 5,10:? #6i"93iifte over-" 

940 IF PEEK<53279>=6 THEN RUN 
950 GOTO 940 
960 GRAPHICS 17 

979 IF T<10 THEN POSITION 5,10:? #6;"NO 
BONUS 11 : GOT 0 1030 

980 6= INK RND< 1 >$400 7+200 

990 K=INT< T--10+LL >: BQ=K*6:SC=SC+BO 
1000 POSITION 7,5:? #6;“BONUS" 

1010 POSITION 2,7:? #6iKi" t “iGi" = ";B 

Q 

1020 FOR 14= 1 TO 7 

1030 FOR F-255 TO 0 STEP -13:POKE 708,P: 
SOUND 0,P,10,10:SOUND 1,255-P,12,10:NEXT 

p* 

Lt?40 NEX i N: SOUND 1,0,0,0 
1050 GRAPHICS 17:SETCOLOR 0,2,3:SETCOLOR 
1,12,5:Shi COLOR 2,13,8:SETu0L0R 3,2,S:S 
ETCOLOR 4,8,1 :LL=lL+1 
1060 IF LL>i THEN 1110 
1070 Ll$=" !!!!i “ 

1080 C2$=" #* *# *# ** **" 

1090 IF SC>2000 AND E=1 THEN E=0: P1=P1+1 
1 100 POKE 756,RAPV256:T1=50:RETURN 
1110 L2$ =IS M i i ! ! ! ! 11 2 L24K 7 # 7) 

=tJHK4ft 136 } - 8 #3 137 > 

1120 GOTO 1090 

1130 GOTO S70 

1140 ? #6 i “ PLEASE WAIT 

1150 ? #6 j“ REDEFING THE" 
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1160 ? #bi“ CHARACTER SET” 

1170 C=@:FOR Q=0 TO 2048 
1180 A=PEEK<57344+Q> 

1190 POKE Rfln+Q,fl 

1200 NEXT Q 

1210 POKE 756,RAFv256 

L220 READ Cl IF C=-l THEN RETURN 

1230 8A=RAf‘l+< CX8 > 

1240 FOR Q=0 TO 7: RtAD U:POKE 6A+Q,U:NEX 


6010 1220 

1260_D0Tfl 1,255,135,255,225,255,135,255, 

2'55,3,0,119,34,254,255,254,34 ,119 

1270 DATA 4,255,255,255,255,255,255,255, 

255,5,255,255,255,255,255,255,255,0,6,13 

0,214,124,124,124,124,214 

1280 DATA 146,7,66,66,90,60,60,60,90,129 

, 3 , 129 , 1,99,124, 124,56 , (* i , 128,3,1,226,2 

8,62,62,26, ii2t>, i 

1236 uAjA 10,123,90,60,60,60,;90,66,66,11 
, i* 6,42,20,42,20,42, i 6,0,12,0,42,2©,42,20 
,42,0,0 

1300 DOTH i3,0,8,20,42,20,8,0,0,14,0,0,2 
0,8,28,0,0,0,15,0,60,66,90,90,66,60,0 
1310 DATA 26,0,28,126,255,99,1,0,0,27,0, 
6 , 15,6,14ii,254,248,112, 1 
1328 FQR_W=150 TO 50 STEP -1:SOUND 0,W,1 
0,15:NEXT H:SOUND ©,0,0,0:66=200:HF=1:H= 
8: HH= 1: X3= 19: RETURN 

1338 LOCATE X3,8,XX: IF XX<>32 AND XX016 
6 THEN H=i 
1340 X3=19 
1350 RETURN 
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Chapter 14: 

USER-PROTECTING 
YOUR PROGRAMS 
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USER-PROTECTING 
YOUR PROGRAMS 

Disabling the BREAK key: 

This can be done using the following statement 
POKE 16,64: POKE 53774,64 

It must be done whenever the graphics mode is changed. 
Using the cold start flag: 

The command POKE 580,1 will cause the computer to do the 
power-up sequence when SYSTEM RESET is pressed. This 
means that if the user presses SYSTEM RESET, then the 
computer will clear all RAM, getting rid of the program. 

The Variable name table: 

This is where the computer stores the names of all the 
variables. Destroying the variable name table prevents the 
program from being listed. To try it, LOAD a program and 
then type the following lines in the direct mode: 

FOR X= PEEK (130) + 256*PEEK (131) TO PEEK (132) + 
256*PEEK (133): POKE X,0:NEXT X 

Now try and list the program! When you save the program 
again, it will be saved in an unlistable form. 





Here, in this small volume, in easy-to-understand form, Paul 
Bunn has brought together all the essential information you’ll 
need to improve your programming techniques on the Atari 
computers. 

From making the most of the graphics, to using sound and 
the joysticks or paddle, you’ll find the vital addresses, the 
important locations, the programming tricks to get your Atari 
to do just about anything you want it to do. 

And if you just want a generous collection of programs, in 
ready-to-run form, you’ll also find them in this book. From 
- BEETLE JUICE (you, as a small, red beetle, try to cross a 
busy street without being squashed) to DODGE ’EM (in 
which you use a joystick to drive your car around a maze, and 
avoid the computer’s car), there are programs for every taste 
and occasion. 

If you’ve come to the ‘What do I do now?’ stage with your Atari 
400 or 800, then you’re ready for Paul Bunn, and this book. 


Another great book from 
Interface Publications 


